If MsgBox("Wollen Sie den Datensatz löschen?", _
 vbQuestion Or vbQuestion, "Löschen") = vbYes Then
     'Datensatz löschen
 End If

Function Security_Query(sMsg As String, _
     sTitle As String) As Boolean
     Dim iResult As Integer
     iResult = MsgBox(sMsg, _
         vbYesNo + vbQuestion, sTitle)
 
    Security_Query = (iResult = vbYes)
End Function

If Security_Query("Datensatz löschen ?", _
 "Löschen:") = True Then
     'Datensatz löschen ...
 End If

• Positionieren der Standard Messagebox
• Input- und Message Box Variationen
• Ersatz für die Standard MessageBox mit benutzerdefinierten Buttonbschriftungen