If... Then... ElseIf... Else Statements : IF « Language Basics « VBA / Excel / Access / Word






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

 








Related examples in the same category

1.A simple decision-making structure in a subroutine
2.Within an If structure, you can have an alternative path by using an Else statement.
3.Use and in if statement
4.Block If Statements
5.One-Line If Statements
6.An If... Then... ElseIf Statement without an Else Clause
7.Combine several If structures using ElseIf.
8.Using the If...Then Statement
9.Write If Then statement in one line
10.Using the Multi-Line If...Then Statement
11.Decisions Based on More Than One Condition: Using the If..Then...AND Conditional Statement
12.Using If...Then...Else Conditional Statement
13.If...Then...ElseIf Statement
14.If statement ladder
15.Nest if statement in a Do Loop
16.Nest an if statement with Do While
17.If/Then/Else: guess a number