Probleem bij VBA Excel om een oneindige loop te creëren

[dupon]

Ik tracht volgende te doen in VBA voor Excel:

Sub jaofneen()
Dim antwoord As String
Dim ja As String
Dim neen As String

  antwoord = Inbox(ja Or neen)
  If antwoord Is ja Then
  MsgBox "ja geantwoord"
  Else
  If antwoord Is nee Then
  MsgBox "neen geantwoord"
  Else
   If antwoord Is Not ja Or neen Then
      terug naar antwoord
    End If
  End If
End If
End Sub

De vraag is om ja of neen te antwoorden en als er geen ja of neen volgt gewoon terug te gaan naar antwoord = Inbox(ja Or neen),
maar het commando "terug naar antwoord" word niet aanvaard

Mod edit: Het forum is om te helpen.

 

[AHulpje]

Sub Ja_of_Nee()
    If MsgBox("Ja of Nee", vbYesNo, "Klik op Ja of Nee") = vbYes Then
        MsgBox "Antwoord was Ja"
    Else
        MsgBox "Antwoord was Nee"
    End If
End Sub

 

[HSV]

Kijk eens naar Do-Loop of While-Wend

 

[cow18]

of met een oneindige lus

Sub Ja_of_Nee()
     Dim sAntwoord

     Do
          sAntwoord = MsgBox("Ja of Nee" & IIf(sAntwoord = vbCancel, vbLf & "fout geantwoord", ""), vbYesNoCancel, "Klik op Ja of Nee")
     Loop While sAntwoord = vbCancel

End Sub

 

[snb]

Sub M_snb()
   Do
   Loop Until MsgBox("test", 1, "snb") = 1
End Sub