07-19-2010, 12:32 PM
Code:
strString="The number of players was 86 and 88 hkjh 880"
splitString=Split(strString," ")
intCount= UBound(splitString)
intCount= Cint(intCount)
arrayNum=" "
For i = 0 to intCount
If IsNumeric(splitString(i)) Then
arrayNumbers= splitString(i)
If arrayNumbers<>"" and arrayNum =" " Then
arrayNum= arrayNumbers
Else
arrayNum= arrayNum &"_"& arrayNumbers
End If
End If
Next
MsgBox arrayNum