Dim strrep As String
Dim pos As Integer
Dim ar As Variant
strrep = Replace(Text1.Text, "Kunde:", "Kunde~~")
ar = Split(strrep, "~~")
For i = 1 To UBound(ar)
 pos = InStr(1, ar(i), ". ")
 MsgBox (Left$(ar(i), pos - 1))
Next