læs fra fx Move: til det næste :

Forudsat din tekstbox hedder Text1:

Læg følgende kode i f.eks. en knap:
    Dim OrgStr As String, NewStr As String, i As Long, j As Long

    OrgStr = Text1.Text
    i = InStr(1, OrgStr, "Move:", vbTextCompare) + 5
    j = InStr(i, OrgStr, ":", vbTextCompare) - i
    NewStr = Mid(OrgStr, i, j)

Du kan så f.eks. lægge NewStr i en anden tekstboks

/tjacob