Imports System

Public Module Module1

    Public Sub Main()

        Dim SecretNumber as integer 

        Dim NumberGuess as integer 

        SecretNumber = 29

        NumberGuess = 0

        Console.WriteLine("Guess number between 1 and 50")

    End Sub

End Module