Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private Sub Form_Activate()
Dim x As Integer, str As String
For x = 1 To 5
Select Case x
Case 1 To 3
str = str & " # " & x & vbCrLf
End Select
Next x
MsgBox str
End Sub