Sub Msgbox1()
Dim Answer As VbMsgBoxResult
Answer = Msgbox(«Kjør macro Answer», vbYesNo, «Macro»)
If Answer = vbYes Then
Debug.Print «ok»
End If
End Sub