Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

If Then ElseIf Else Statements

Sub Creating_a_Document()       Dim lngButton As Long       Dim strMessage As String       strMessage = "Question."       lngButton = MsgBox(strMessage, vbYesNoCancel + vbQuestion, "Create New Document")       If lngButton = vbYes Then           Documents.Add Template:="C:\t.dot"       ElseIf lngButton = vbNo Then           Documents.Add       Else    'lngButton is vbCancel           End       End If   End Sub