Sub Message()
 Dim a As String
 a = MsgBox("Do you klick yes or no?!", vbYesNo, "Hi")
    If a = vbNo Then
       MsgBox "You klicked: No!"
    Else
       MsgBox "You klicked: Yes!"
    End If
End Sub