I trying to extract numerical string from alphanumeric string by this:
I get output "Numerical value is 1234" instead of 1.234. Any suggestions ..
Code:
s = "1.234 gm"
For k = 1 To Len(s)
If IsNumeric(Mid(s, k, 1)) Then
r = r & Mid(s, k, 1)
End If
Next k
MsgBox "Numerical value is" & r
I get output "Numerical value is 1234" instead of 1.234. Any suggestions ..