Hi Paul,
At its simplest:
Code:
Sub Demo()
Dim strQ As String
Question:
strQ = InputBox("What is the Question?", "Examiner")
If strQ <> "" Then GoTo Question
End Sub
but you need to say what you want done with each question!
Cheers,
Paul Edstein
[MS MVP - Word]