Dim Text As String
Text = "Hallo Test mit veielen Zeichen Punkte:028 und noch was Text"
 
Dim pos As Integer
Dim Wert As Integer
Dim Suchwort As String
Suchwort = "Punkte"
 
pos = InStr(Text, Suchwort)
 
Wert = Val(Mid(Text, pos + Len(Suchwort) + 1, 3))
 
MsgBox Wert

____________________________
Heimschmiede.de.vu