Module Module1 Sub Main() Dim Text as String Text = MsgBox("Click any button", vbYesNoCancel + vbQuestion) End Sub End Module