Fragen System

[p3rsianstyl3]

Hi leute ein kollege von mir hat sich gerade an das programmieren mit VB gemacht,
er hat etwas geschrieben aber es kommt der fehler: Fehler beim Kompilieren
If-Block ohne End If,
ich weiss aber nicht was daran falsch ist ich schicke mal den code dann kann mir bitte jemand helfen thx:
Private Sub Form_Load()
imsgres = MsgBox("Wollen Sie fortfahren?", vbYesNo, "Frage")
If imsgres = vbNo Then Exit Sub
imsgres = MsgBox("Sind Sie sicher, dass Sie fortfahren wollen?", vbYesNo, "Frage Nr.2")
If imsgres = vbYes Then
imsgres = MsgBox("Gut, Sie haben es bis zum Ende geschafft!", vbInformation, "Fertig")
imsgres = MsgBox("Verarscht!!", , "TOT")
imsgres = MsgBox("Sie werden zum aufhören gezwungen!")
imsgres = MsgBox("Werden sie mit, oder ohne Virus aufhören?", vbQuestion)
imsgres = MsgBox("Wenn sie keinen Virus wollen drücken sie bitte Ja", vbYesNo)
If imsgres = vbYes Then
imsgres = MsgBox("OH MEIN GOTT, haben sie mir wirklich geglaubt?", vbYesNo)
If imsgres = vbNo Then
imsgres = MsgBox("Sie sind ein Lügner bzw. Lügnerin...")
imsgres = MsgBox("Sie sind so jämmerlich....")
imsgres = MsgBox("Sie wollen wissen warum?")
imsgres = MsgBox("Weil sie immernoch nicht wissen das, das nur ein joke war^^")
imsgres = MsgBox("Letzte Frage, war ich gut?", vbYesNo)
If imsgres = vbYes Then
imsgres = MsgBox("Vielen Dank das sie ehrlich waren")
imsgres = MsgBox("Haben sie nicht Lust sich noch ein wenig zu unterhalten?")
imsgres = MsgBox("War nur ein Witz, einen schönen Tag noch")
End
Else
MsgBox ("SIE HABEN VERLOREN, PACKEN SIE IHRE SACHEN,SIE WERDEN IN WENIGEN MINUTEN ABGEHOLT")
End If
End Sub

 

[p3rsianstyl3]

hat sich erledigt thx