Function Str_Val(ParamArray Ar())
Str_In=Ar(0)
Str_Out=""
For i = 1 To Len(Str_In)
Select Case Asc(Mid(Str_In, i, 1))
Case 48 To 57
Str_Out = Str_Out & Mid(Str_In, i, 1)
Case 46, 44
If InStr(Str_Out, ".") = 0 Then Str_Out = Str_Out & "."
End Select
Next
Str_Val=Str_Out
End Function
|