Select Case

[Rick_Stanich]

I don't see what I am doing wrong in this code using "Select Case". When activated and the correct string is entered I should get a msgbox pop up.

     Dim sLogin As String
    Dim CapsLock As New SetCapsClass

    CapsLock.Value = True
    sLogin = InputBox("Enter Employee Number here!")
    If sLogin = "" Then
        MsgBox "You must enter your Employee Number!"
        sLogin = InputBox("Enter Employee Number here!")
        Select Case sLogin
        Case 1
            If sLogin = "RS61" Then
                MsgBox "User has full READ/WRITE capabilities!"
                sLogin = True
            End If
        Case 2
            If sLogin = "JE80" Then
                MsgBox "User has full READ/WRITE capabilities!"
                sLogin = True
            End If
        Case 3
            If sLogin = "BC58" Then
                MsgBox "User has full READ/WRITE capabilities!"
                sLogin = True
            End If
        Case 4
            If sLogin = "BF56" Then
                MsgBox "User has full READ/WRITE capabilities!"
                sLogin = True
            End If
        Case 5
            MsgBox "User has WRITE capabilities ONLY!"
            sLogin = False
        End Select
    End If