Функции

Function CheckINN(sInn As String) As Boolean
 
' Ф-ция проверки количества символов и вывод соответствующей подфункции:
    sInn = Trim$(sInn)
 
    Select Case Len(sInn)
 
    Case 10: Check = CheckINN10(sInn)
    Case 12: Check = CheckINN12(sInn)
 
    End Select
    
    If Check = False Then MsgBox ("Не корректный ИНН")
    
End Function
 
 
Function CheckINN10(sInn As String) As Boolean
' Функция проверки 10 значного ИНН
    
    Dim i As Integer, s As String, j As Integer
    Dim v(1 To 10) As Integer
    
    v(1) = 2
    v(2) = 4
    v(3) = 10
    v(4) = 3
    v(5) = 5
    v(6) = 9
    v(7) = 4
    v(8) = 6
    v(9) = 8
    v(10) = 0
    
    For i = 1 To 10
 
        s = Mid$(sInn, i, 1)
 
        If Not IsNumeric(s) Then Exit Function
 
        j = j + CInt(v(i)) * CInt(s)
 
    Next i
 
    j = j Mod 11
 
    If j > 9 Then j = j Mod 10
 
    CheckINN10 = (j = CInt(s))
 
End Function
 
 
Function CheckINN12(sInn As String) As Boolean
 
' Функция проверки 12 значного ИНН
    
    Dim i As Integer, s As String, j As Integer
    Dim v(1 To 12) As Integer
    
    v(1) = 3
    v(2) = 7
    v(3) = 2
    v(4) = 4
    v(5) = 10
    v(6) = 3
    v(7) = 5
    v(8) = 9
    v(9) = 4
    v(10) = 6
    v(11) = 8
    v(12) = 0
    
    'j = 0
    
    For i = 1 To 12
        
        s = Mid$(sInn, i, 1)
 
        If Not IsNumeric(s) Then Exit Function
        
        j = j + CInt(v(i)) * CInt(s)
        
    Next i
    
    j = j Mod 11
    
    If j > 9 Then j = j Mod 10
    
    If j <> CInt(s) Then Exit Function
    
    j = 0
    
    For i = 1 To 11
        
        j = j + CInt(v(i)) * CInt(Mid$(sInn, i, 1))
        
    Next i
    
    j = j Mod 11
    
    If j > 9 Then j = j Mod 10
    
    CheckINN12 = (j = CInt(s))
    
End Function
 
[size="1"][color="grey"][I]Добавлено через 23 часа 54 минуты[/I][/color][/size]
мда...
 
То что выше, добавить в модуль..
а решение вот оно:
 
Private Sub Command1_Click()
   CheckINN Text1.Text
End Sub