Program kode1

Fjern _

Vrøvl. Du skal have paranteser med:

Msg = msgbox( "Vil du gemmer dokumentet", vbQuestion + vbYesNo, App.Title)

Msg skal selvfølgelig være korrekt type.

If VBYes = MsgBox("Vil du gemmer dokumentet", vbQuestion + vbYesNo, App.Title) Then
  msgbox "Du trykkede ja"
Else
  msgbox "Du trykkede nej"
End if

Med paranteser omkring returnerer Msgbox en værdi, uden paranteser fyrer den bare en messagebox afsted...

nu har jeg fået den ned til det her... nu lyser den ikke rød mere men virker stadig ikke :D

Msg = MsgBox("Vil du gemmer dokumentet", vbQuestion + vbYesNo, lol)

det virker vist nu... thx