If IsNumeric(Mid(Text, i, 1)) Then

Dim Text As String
Text = "Hallo Test mit veielen Zeichen und Punkte:15810 noch was Text"
 
Dim pos As Integer
Dim Wert As Integer
Dim Suchwort As String
Dim LenWert As Integer
Dim StartPos As Integer
 
Suchwort = "Punkte:"
 
pos = InStr(Text, Suchwort)
 
StartPos = pos + Len(Suchwort)
 
For i = StartPos To Len(Text)
  If IsNumeric(Mid(Text, i, 1)) Then
    LenWert = LenWert + 1
  Else
    Exit For
  End If
Next i
 
Wert = Val(Mid(Text, StartPos, LenWert))
 
MsgBox Wert

____________________________
Heimschmiede.de.vu