Sub Meldung()
 Dim a As String
 a = MsgBox("Bist Du ein Nashorn?!", vbYesNo, "Hallo")
    If a = vbNo Then
       MsgBox "Doch das bist Du!"
    Else
       MsgBox "Hallo Nashorn!"
    End If
End Sub