Dim Msg

Dim strMsg As String
strMsg = "Epostaddressen har ändrats." & vbCrLf
strMsg = strMsg & "Vill du spara ändringarna?" & vbCrLf
strMsg = strMsg & "Klicka JA för att spara eller NEJ för att INTE spara ."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Ändrad information?") = vbYes Then
MsgBox "Informationen är uppdaterad", vbInformation, "Ändrad Information"
Else
DoCmd.RunCommand acCmdUndo
End If