Function IsItNumber(strString As String)
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

Function IsItNumber(ByVal strString As String) As Boolean
'********************************************************
'
'   Функция предназначена для того что бы определить
'   содержит ли строка только цифры, или нет
'
'   Возвращаемые значения
'   True - переданная строка содержит только цифры
'   False - переданная строка пуста,
'           или содержит НЕ только цифры
'
'   автор - Nikz(c) nikita.morozov@gmail.com
'********************************************************
'здесь мы объявляем переменную, которая будет использоваться
'для индексирования текущего символа в переданной функции строке
Dim i As Integer
'назначим функции значение по умолчанию
'по умолчанию она будет возврашать False
IsItNumber = False
'проверим, не пустая ли строка...
'ведь пустая строка не может содержать чисел
'если строка пуста, выходим из функции и возвращаем значение
'по умолчанию - False
If strString = "" Then Exit Function
'начинаем бегать по всем символам в переданной строке
For i =  1  To Len(strString)
    'если символ с индексом i не входит в последовательность "0123456789"
    'значит переданная строка содержит не только цифры
    'в этом случае выходим из функции и возвращаем значение
    'по умолчанию - False
    If InStr( 1 , "0123456789", Mid(strString, i,  1 )) =  0  Then
        Exit Function
    End If
Next i
'после того как мы убедились, что переданная строка не пуста
'и содержит только цифры, присваиваем функции значение True
'и завершаем выполнение
IsItNumber = True
End Function