Using the Multi-Line If...Then Statement : IF « Language Basics « VBA / Excel / Access / Word






Using the Multi-Line If...Then Statement

 
Sub SimpleIfThen3()
    Dim weeks As String
    Dim response As String

    weeks = InputBox("How many weeks are in a year?", "Quiz")
    If weeks <> 52 Then
        MsgBox "The correct answer is 52.", response = MsgBox("Would you like to try again?", _
        vbYesNo + vbInformation + vbDefaultButton1, "Continue Quiz?")
        If response = vbYes Then
            Call SimpleIfThen3
        End If
    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.If... Then... ElseIf... Else Statements
7.An If... Then... ElseIf Statement without an Else Clause
8.Combine several If structures using ElseIf.
9.Using the If...Then Statement
10.Write If Then statement in one line
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