Already did -- but here it is again.

Sub Tester5()
Dim sString As String, sStr As String
Dim i As Long, sChr As String
sString = "This is my string 0.000"
For i = 1 To Len(sString)
sChr = Mid(sString, i, 1)
If IsNumeric(sChr) Or sChr = "." Then
sStr = sStr & sChr
End If
Next
MsgBox sStr

End Sub

gave me 0.000

--
Regards,
Tom Ogilvy


"nabukhalaf" wrote in message
...

if anyone can provide me with a function that can parse a string to
retrieve numbers, numbers including decimals etc that would be
appreciated. I.E. "This is my string 0.000"


--
nabukhalaf
------------------------------------------------------------------------
nabukhalaf's Profile:
http://www.excelforum.com/member.php...o&userid=15040
View this thread: http://www.excelforum.com/showthread...hreadid=266583