Module NumberGuessingGame

    ' Main procedure for the game
    Sub Main()
        Dim SecretNumber As Integer
        Dim Guess As Integer

        ' Generate a secret number
        SecretNumber = GenerateSecretNumber()

        ' Input guess from the user
        Guess = InputGuess()

        ' Pass the guess and secret number to the output message module
        OutputMessage(Guess, SecretNumber)
    End Sub

    ' Function to generate a random secret number
    Function GenerateSecretNumber() As Integer
        Dim rand As New Random()
        ' For simplicity, let's assume secret number is between 1 and 10
        Return rand.Next(1, 11)
    End Function

    ' Function to input guess from the user
    Function InputGuess() As Integer
        Console.WriteLine("Guess a number between 1 and 10:")
        Return Convert.ToInt32(Console.ReadLine())
    End Function

    ' Procedure to determine the appropriate message to display
    Sub OutputMessage(ByVal Guess As Integer, ByVal SecretNumber As Integer)
        If Guess = SecretNumber Then
            OutputCongratulation()
        Else
            OutputConsolationMessage()
        End If
    End Sub

    ' Procedure to output congratulation message
    Sub OutputCongratulation()
        Console.WriteLine("Congratulations! You've guessed the right number!")
    End Sub

    ' Procedure to output consolation message
    Sub OutputConsolationMessage()
        Console.WriteLine("Sorry, that's not correct.")
    End Sub

End Module