Dim currentNumber as Integer
Dim primeChecker as Integer
Dim primeCounter as Integer
Dim foundCounter as Integer
currentNumber = Convert.ToInt32(testBox.Text) + 1
foundCounter = 0
Do While foundCOunter < 5
	primeChecker = currentNumber - 1
	primeCounter = 0
	Do While primeChecker > 1 And primeCounter = 0
		If currentNumber % primeChecker = 0 Then
			primeCounter = primeCounter + 1
		End If
                primeChecker = primeChecker - 1
	Loop
	If primeCounter = 0 Then
		listOutput.Items.Add(currentNumber.ToString())
	End If
	currentNumber = currentNumber + 1
Loop