Dim str As String = "abc345345sdagf675.654OK"
Dim mh As System.Text.RegularExpressions.match
mh=System.Text.RegularExpressions.Regex.match(str,"[0-9.]+")
output.show(mh.Tostring())
Do While mh .ToString() <> ""
mh = mh .NextMatch()
If mh .ToString() <> "" Then
output.show(mh.Tostring())
End If
Loop