Example - Select Case Statement

' This shows a basic example of select case statements
Sub Main()
   For x = 1 To 5
      MsgBox x, 0, "Showing X Value"
      Select Case x
         Case 1
            MsgBox "Entered Case 1 ", 0, "Select Case Example"
         Case 2
            MsgBox "Entered Case 2 ", 0, "Select Case Example"
         Case 3
            MsgBox "Entered Case 3 ", 0, "Select Case Example"
         Case Else 
            MsgBox "Entered Else Case", 0, "Case Else Example"
      End Select
   Next
   MsgBox "Done with For Loop"
End Sub