Select Case Not Working

[BrianExcel]

I am using the following code. Basically, when I select Three from the first list box, the "Three" range should display in the second list box, but nothing happens when I click, regardless of what value....thoughts?

Sub lbxFloor_Click()
Dim sText As String

    For x = 0 To UserForm1.lbxFloor.ListCount - 1
        If UserForm1.lbxFloor.Selected(x) Then
            sText = UserForm1.lbxFloor.Value
        End If
    Next x

    With Sheets("Printer Data")
        UserForm1.lbxPrinterList.Clear
        Select Case sText
            Case Three
                UserForm1.lbxPrinterList.RowSource = "rThree"
            Case Six
                UserForm1.lbxPrinterList.RowSource = "rSix"
            Case Fifteen
                UserForm1.lbxPrinterList.RowSource = "rFifteen"
        End Select
    End With
End Sub

 

[p45cal]

should it be

Case [COLOR=Red][B]"[/B][/COLOR]Three[B][COLOR=Red]"[/COLOR][/B]
  UserForm1.lbxPrinterList.RowSource = "rThree"
Case [B][COLOR=Red]"[/COLOR][/B]Six[COLOR=Red][B]"[/B][/COLOR]
   UserForm1.lbxPrinterList.RowSource = "rSix"
Case [B][COLOR=Red]"[/COLOR][/B]Fifteen[B][COLOR=Red]"[/COLOR][/B]

 

[BrianExcel]

That was way too easy. Thanks!