Модуль Module1

    Dim ГНТП As String
    Dim ответ As String
    Sub Main ()

        Console.WriteLine ( "X")
        ответ = Console.ReadLine ()

        В то время как IsNumeric (ответ) = False

            Console.WriteLine ( "X1")
            ответ = Console.ReadLine

        End While

        Если ответ = "1", а затем
            контрольная цифра()

        ElseIf asnwer = "2" Тогда
            Проверка()

        еще
            Console.ReadLine ( "Пожалуйста, убедитесь, что вы ввели" 1 "или" 2 "

        End If


    End Sub

    Sub CheckDigit ()

End Module
Modul' Module1

    Dim GNTP As String
    Dim otvet As String
    Sub Main ()

        Console.WriteLine ( "X")
        otvet = Console.ReadLine ()

        V to vremya kak IsNumeric (otvet) = False

            Console.WriteLine ( "X1")
            otvet = Console.ReadLine

        End While

        Yesli otvet = "1", a zatem
            kontrol'naya tsifra()

        ElseIf asnwer = "2" Togda
            Proverka()

        yeshche
            Console.ReadLine ( "Pozhaluysta, ubedites', chto vy vveli" 1 "ili" 2 "

        End If


    End Sub

    Sub CheckDigit ()

End Module