Imports System
Public Class MainClass
Shared Sub Main()
Dim getData As String
Dim i, j As Integer
For i = 1 To 10
For j = 1 To 100
Console.Write("Type the data, hit the Enter key between " & _
"Q to end: ")
getData = Console.ReadLine()
If getData = "Q" Then
GoTo BadInput
Else
'Process data
End If
Next j
Next i
Exit Sub
BadInput:
Console.WriteLine("Data entry ended at user request")
End Sub
End Class