حذف قبل از دومین \ و بعد از سومین \ یک آدرس!...

[R2du-soft]

سلام دوستان
یک متن داخل text box دارم که بدین صورت هست:
C:\Program Files\WinRAR\Formats
میخوام با کلیک روی دکمه از قبل از دومین \ و بعد از سومین \ به همراه \ ها حذف بشن.
برای مثال با کلیک روی دکمه ، از آدرس بالا فقط WinRAR بمونه.
چون winrar میتونه متغیر باشه و من نمیدونم توی یه سیستم دیگه میخوام چی باشه و فقط میدونم توی تمامی سیستم ها بعد از دومین \ اون متغیر نوشته میشه باید از این روش استفاده کنم.
میشه راهنماییم کنید که چطور قبل و بعد از \ رو که مثالش رو براتون گفتم حذف کنم؟
ممنون

[m.4.r.m]

Private Sub Command1_Click()
On Error Resume Next
Dim St() As String
St = Split(Text1.Text, "\")

MsgBox St(2)
End Sub