استخراج بعضی از رشته ها از یک رشته

سلام
من رشته ای دارم به صورت \f1\f2\f3\f4 میخوام رشته های f1 ,f2 ,f3 ,f4 را به ترتیب از اون بدست بیارم
چجوری می تونم این کار را بکنم؟

خودم جواب خودم را میدم

کد:

---

Private Function GetFolders(b As String) As String

Dim a As String
Dim c As Integer
Dim Z As String
c = 1
For i = 1 To Len(b)
Z = Left(Text1.Text, Len(b) - i)
If Right(Z, 1) = "\" Then
c = c + 1
End If
Next


For i = 1 To c
a = Left(b, InStr(1, b, "\") - 1)
MsgBox a
b = Right(b, Len(b) - Len(a) - 1)
Next

End Function

Private Sub Command2_Click()
GetFolders (Text1.Text)

End Sub

---