Sub MixVBSVBA() 'source msdn
Dim WshShell, BtnCode
Set WshShell = CreateObject("WScript.Shell")
BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32)
Select Case BtnCode
Case 6: WshShell.Popup "Glad to hear you feel alright.": MsgBox "Glad to hear you feel alright.", vbYesNoCancel, "MsgBox Excel"
Case 7: MsgBox "Hope you're feeling better soon.", vbCritical, "MSGBOX EXCEL": WshShell.Popup "Hope you're feeling better soon."
Case -1: WshShell.Popup "Is there anybody out there?"
End Select
End Sub