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