meerdere msgboxen (VbmsgBoxResult) in code

[HBot]

Beste forum,

loopt tegen een probleem aan, en kan het door mijn beperkte kennis niet oplossen
ik heb onderstaande code gebruikt om een msgbox te openen en met ja-nee weer verder te kunnen, en deze werkt perfect.
Nu wil ik deze kopiëren om meerdere keren te gebruiken
maar krijg de fout melding op Dim antwoordt As VbMsgBoxResult (Compileerfout.)
ik begrijp dat je dan geen 2x dezelfde code kan gebruiken alleen, geprobeerd met een cijfer er achter.
kan ik er niet achter komen hoe ik dan meerdere Msgboxen met ja/nee kan gebruiken

'MSG box als status is niet voor eerste 5 op akkoord'
    If Sheets("Voorblad").Range("C39") = "Klaar" And Range("C40") = "Klaar" And Range("Verzend_Check") >= 9 And Range("Comment") > 0 Then
        Dim antwoordt As VbMsgBoxResult
        answer = MsgBox("Ja, betekent OFO opslaan en mail naar aanvrager (zet status-houder in de cc), Nee, betekent OFO wordt niet opgeslagen![eerst oplossen]", vbYesNo + vbQuestion + vbDefaultButton2, "CONTROLEER STATUS EN/OF NIET ALLE VELDEN ZIJN INGEVULD!")
    If answer = vbYes Then GoTo 3
    If answer = vbNo Then
    End If
Exit Sub

 

[edmoor]

Gewoon die Dim antwoordt As VbMsgBoxResult helemaal weg laten want je gebruikt 'm verder niet en is ook niet nodig.

Los van je vraag:
Het gebruik van GoTo om naar een label te springen is uit den boze.
Die controle op vbNo kan er uit, maak daar een Else van.

 

[HBot]

Hallo Edmoor,

Bedankt,
Aangepast, werkt.
Weer wat geleerd, ga dit verder toepassen,
Gr
Henny