Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas
Забыл, вот:

Public Function NumFromString(s As String) As Double     Dim Arr() As Byte     Dim i As Integer          Arr = s     For i = 0 To UBound(Arr) Step LenB("A")         If Arr(i) > 47 Then             If Arr(i) < 58 Then                 NumFromString = Val(Mid$(s, i / LenB("A") + 1))                 Exit Function             End If         End If     Next i End Function