Imports System
Public Module Module1
Public Sub Main()
'Prompt for a number
Console.Write("Enter a number: ")
'Store the input and declare a converted value
Dim strInput As String = Console.ReadLine()
Dim dblInput As Double
'Check if the conversion was a success
If Double.TryParse(strInput, dblInput) Then
Console.WriteLine("Thank you for following instructions!")
Else
Console.WriteLine("That was not a number.")
End If
End Sub
End Module