does this do it for you?
Dim mystring() As String, myWord As String, myInt As Integer
mystring = Split(Text1.Text, "Name|")
myInt = InStr(1, mystring(1), "|")
myWord = Mid(mystring(1), 1, myInt - 1)
MsgBox myWord
End Sub