While Not (IsNumeric(strInput) Or UCase(strInput) = "QUIT")
Console.WriteLine("A numeric product ID is required.")
Console.WriteLine("Please reenter the Product ID or QUIT to continue.")
strInput = Console.ReadLine()
End While

' Exit on "quit".
If UCase(strInput) = "QUIT" Then
End
End If