VB.NET small problem

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Temperature As Integer
        Dim Price As Integer
        Temperature = CInt(Val(TextBox1.Text))
        Select Case Temperature
            Case Is < 50
                Price = 0
            Case 50 To 60
                Price = 20
            Case 61 To 70
                Price = 25
            Case 71 To 80
                Price = 30
            Case 81 To 85
                Price = 40
            Case 86 To 90
                Price = 50
            Case 91 To 95
                Price = 55
            Case 96 To 100
                Price = 65
            Case Else
                Price = 75
        End Select
        If Price <> 0 Then
            TextBox2.Text = Str(Price) & " Cents"
        Else
            TextBox2.Text = "Frangossi"
        End If
    End Sub
End Class

My result no matter what number when pressed is always frangossi
what have i done wrong its VB.NET