Very Simple VB Calculator

Module Module1

Sub Main()
Console.WriteLine("Please enter the first number")
Dim Num1 As Double = Console.ReadLine()
Console.WriteLine("Please enter the second number")
Dim Num2 As Double = Console.ReadLine()
Console.WriteLine("Would you like to add, subtract, multiply or divide? Please select 1-4")
Dim choice As Double = Console.ReadLine


If choice = 1 Then
Dim answer As Double = Num1 + Num2
Console.WriteLine("Answer: " & answer)
Console.ReadLine()
End If
If choice = 2 Then
Dim answer As Double = Num1 - Num2
Console.WriteLine("Answer: " & answer)
Console.ReadLine()
End If
If choice = 3 Then
Dim answer As Double = Num1 * Num2
Console.WriteLine("Answer: " & answer)
Console.ReadLine()
End If