[taximania]

Here's a starter for you. If you haven't done it already.

Sub VAL(s)
temp = ""
temp2=0
flag = 0
If StrLength(s) = 0 Then
    Return 0
Else
    len = StrLength(s)
    For a = 0 To len -1
        If IsNumber(StrAt(s,a)) Then
            temp = temp & StrAt(s,a)
        Else
            If StrAt(s,a) = "." Then
                If flag = 0 Then
                    flag = 1
                    temp = temp & "."
                End If
            End If
        End If
    Next
    If temp = "" OR temp = "." Then
        Return 0
    Else
        temp2 = temp2 + temp
        Return temp2
    End If
End If
End Sub

Returns 0 for no number found.
The first '.' found is treat as a decimal point. All others are ignored.
Trims excessive leading and trailing '0's.