Help

[QuestionPlease]

I am trying to make a console application that when you press the number for the planet it displays its info, but i can't get it to display the info?

Module Module1

    Sub Main()
        Dim menuSelection As Integer
        DisplayMenu(menuSelection)

        Select Case menuSelection
            Case 1
                Mercury()
            Case 2
                Venus()
            Case 3
                Earth()
            Case 4
                Mars()
        End Select


    End Sub

    Private Sub Mercury()
        Console.WriteLine(" ------------------------------- ")
        Console.WriteLine("Mercury:")
        Console.WriteLine("Average Distance from the Sun: 57.9 million kilometers")
        Console.WriteLine("Mass: 3.31 x 10^23 kg")
        Console.WriteLine("Surface Temperture: -173 to 430 degrees Celsius")


    End Sub

    Private Sub Venus()
        Console.WriteLine(" ------------------------------- ")
        Console.WriteLine("Venus:")
        Console.WriteLine("Average Distance from the Sun: 108.2 million kilometers")
        Console.WriteLine("Mass: 4.87 x 10^24 kg")
        Console.WriteLine("Surface Temperture: 472 degreees Celsius")
    End Sub

    Private Sub Earth()
        Console.WriteLine("Earth:")
        Console.WriteLine("Average Distance from the Sun: 149.6 million kilometers")
        Console.WriteLine("Mass: 5.967 x 10^24 kg")
        Console.WriteLine("Surface Temperture: -50 to 50 degrees Celsius")
    End Sub

    Private Sub Mars()
        Console.WriteLine("Mars:")
        Console.WriteLine("Average Distance from the Sun: 227.9 million kilometers")
        Console.WriteLine("Mass: 0.6424 x 10^24 kg")
        Console.WriteLine("Surface Temperture: -140 to 20 degrees Celsius")
    End Sub

    Private Sub DisplayMenu(ByVal menuSelection As Integer)
        Console.WriteLine(" Select a Planet")
        Console.WriteLine("1. Mercury")
        Console.WriteLine("2. Venus")
        Console.WriteLine("3. Earth")
        Console.WriteLine("4. Mars")
        Console.WriteLine("5. End The Program")
        Console.WriteLine()
        Console.WriteLine("Enter your selection: ")
        menuSelection = CInt(Console.ReadLine())

        Do While menuSelection < 1 Or menuSelection > 5
            Console.WriteLine("Invalid Selection.")
            Console.Write("Please Enter 1 2, 3, or 4: ")
            menuSelection = CInt(Console.ReadLine())
        Loop

    End Sub


End Module

[cicatrix]

Change

Private Sub DisplayMenu(ByVal menuSelection As Integer)

to

Private Sub DisplayMenu(ByRef menuSelection As Integer)

Also, your program will crash, if you enter a non-numeric (say, letter) value.
Change DisplayMenu to Function that returns the user input (safer way)

Private Function GetUserInput() As Integer
    Dim retVal As Integer = 0
    Do
        If Not Integer.TryParse(Console.ReadLine(), retVal) Then
            Continue Do
        End If
        If retVal < 1 OrElse retVal > 5   
            Console.WriteLine("Please enter 1-5")
        Else
            Return retVal
        End If        
    Loop
End Function

The correct way of obtaining the int value will be

menuSelection = GetUserInput()

[proneal]

Yes OP. Look at

Integer.TryParse(Console.ReadLine(), retVal.

If it can convert the console input into an Integer value (TryParse method) it will store the conversion into retVal, which as you should see has been declared as Integer Type for this purpose.

Dim retVal As Integer = 0