Example - If...Then...Else Statement

  1. Sub Main()

    1. ' demo If...Then...Else

      Dim msg as String

      Dim nl as String

      Dim someInt as Integer

      nl = Chr(10)

      msg = "Less"

      someInt = 4

      If 5 > someInt Then msg = "Greater" : Beep

      MsgBox "" & msg

      If 3 > someInt Then

      1. msg = "Greater"

        Beep

      Else

      1. msg = "Less"

      End If

      MsgBox "" & msg

      If someInt = 1 Then

      1. msg = "Spring"

      ElseIf someInt = 2 Then

      1. msg = "Summer"

      ElseIf someInt = 3 Then

      1. msg = "Fall"

      ElseIf someInt = 4 Then

      1. msg = "Winter"

      Else

      1. msg = "Salt"

      End If

      MsgBox "" & msg

    End Sub