Function IsItNumber(ByVal strString As String) As Boolean

'   Функция предназначена для того что бы определить
'   содержит ли строка только цифры, или нет
'
'   Возвращаемые значения
'   True - переданная строка содержит только цифры
'   False - переданная строка пуста,
'           или содержит НЕ только цифры

Dim i As Integer
IsItNumber = False
If strString = "" Then Exit Function
For i = 1 To Len(strString)
    If InStr(1, "0123456789", Mid(strString, i, 1)) = 0 Then
        Exit Function
    End If
Next i
IsItNumber = True
End Function