Fórum Ajuda com programa simples Visual Basic #564470

Module Module1

    Sub Soma()
        Dim Número, Soma, Chute As Integer
        Número = 0

        WriteLine("Digite um Número")
         Write.Read (Chute) 
        Do
            If (Chute <> Número) Then
                Soma = Soma + Chute
                Console.WriteLine("Errado!, Soma é ", Soma)
                Console.ReadLine()
            End If
        Loop Until (Chute = Número)

        If (Chute = 0) Then
            Console.WriteLine("Certo! e soma é", Soma)
            Console.ReadLine()

        End If
        Return (Soma é Soma , soma)




    End Sub



    Sub Main()


        Console.WriteLine()
        Console.ReadLine()

    End Sub




End Module