here i am again
 

Public Sub Naamenklas()

Dim strnaam As String
Dim strklas As String
Dim intaantal As Integer

Do
strnaam = InputBox("Geef de naam", "naam")
strklas = InputBox("Geef de klas", "klas")
intaantal = intaantal + 1
Debug.Print strnaam
Debug.Print strklas
Loop Until intaantal = 3
End Sub

:confused:

Hier schieten we weinig mee op.

Gesloten.