Module Example
Public Sub Main()
Dim Done As Boolean = False
Dim Inp As String
Do
Console.Write("Enter a real number: ")
inp = Console.ReadLine()
Try
Dim D As Double = Double.Parse(inp)
Console.WriteLine("You entered " + D.ToString() + ".")
Done = True
Catch E As Exception
Console.WriteLine("An exception occurred while parsing your response: " + E.ToString())
End Try
Loop While Not Done
End Sub
End Module