GUI Program to Demonstrate Control Array

Private Sub Command10_Click()
Text1.Text = " "
Text2.Text = " "
End Sub

Private Sub Command11_Click()
Text1.Text = Text1.Text & Index
End Sub

Private Sub Command12_Click()
Dim code As Long
code = Text1.Text
Select Case code
    Case 0 To 100
    Text2.Text = "Access Denied"
    Beep
    
    Case 1645 To 1989
    Text2.Text = Now & "Technicians"
    
    Case 8345
    Text2.Text = Now & "custodians"
    
    Case 55875
    Text2.Text = Now & "Special Services"
    
    Case 999898
    Text2.Text = Now & "Chief Scientists"
    
    Case 1000007 To 1000008
    Text2.Text = Now & "Scientists"
    
    Case Else
    Text2.Text = Now & "Access Denied"
    End Select
End Sub