Select Case problem

Hi,
I am trying to make this macro work, but apparently I am nod doing it right.
Appreciate very much your help in this regard.

Sub CaseSelect_macro()

Dim ws As Worksheet
Dim pNbr As Range


pNbr = InputBox("Please type in Pod# you like to load")

Select Case pNbr


Case Is = 1

UserForm1.Show

Set ws = Worksheets("Rack")
    ws.Cells(4, 3).Value = TextBox1.Value
    ws.Cells(5, 3).Value = TextBox2.Value
    ws.Cells(6, 3).Value = TextBox3.Value
    ws.Cells(7, 3).Value = TextBox4.Value
    ws.Cells(8, 3).Value = TextBox5.Value
   Unload Me
   
Case Is = 2

UserForm2.Show

Set ws = Worksheets("Rack")
    ws.Cells(4, 6).Value = ComboBox1.Value
    ws.Cells(5, 6).Value = TextBox2.Value
    ws.Cells(6, 6).Value = TextBox3.Value
    ws.Cells(7, 6).Value = TextBox4.Value
    ws.Cells(8, 6).Value = TextBox5.Value
Unload Me
End Select

End Sub

Thank you
Saziz