Module Module1

    Sub Main()
        Dim X, Y, Erro As Integer
        Dim A As String
        Console.Write("Escreva o numero que quer calcular o fatoral: ")
        A = Console.ReadLine()
        Erro = 0
        Do While Erro = 0
            If IsNumeric(A) = False Then
                Console.Write("Escreveu uma letra, tem de escrever um número: ")
                A = Console.ReadLine
            Else
                Erro = 1
            End If
        Loop
        Do While A <= 0
            Console.Write("O número que inseriu não está correto, insira um número superior a 0: ")
            A = Console.ReadLine()
        Loop
        Y = A - 1
        X = A

        Do While Y > 0
            A = A * Y
            Y = Y - 1
        Loop

        Console.WriteLine("O fatorial de " + X.ToString + " é " + A.ToString)
        Console.ReadLine()
    End Sub

End Module