'=======================================================================

' ##### Проверка на числа

'-----------------------------------------------------------------------

Function FnCheckTypeNum(ByVal vVal As Variant) As Boolean

Dim i As Integer

Dim vSim As Variant

For i = 1 To Len(vVal)

vSim = Mid(vVal, i, 1)

If IsNumeric(vSim) Then

FnCheckTypeNum = True

Else

Exit Function

End If

Next i

End Function

'=======================================================================