B4J Question Using To in Select Cases?

Sub Class_Globals
    Private fx As JFX
    Private ranges As List
    Private tolerance As Double
End Sub

Public Sub Initialize(tolerance_ As Double)
    tolerance = tolerance_
    ranges.Initialize
End Sub

Public Sub Set(definition As String) As rangeObject
    ranges.clear
    Dim v() As String = Regex.Split(",", definition)
    For Each s As String In v
        ranges.Add(s.trim)       
    Next
    Return Me
End Sub

Public Sub Contains(comparator As Object) As Boolean
    If comparator Is String Then
        Return checkStrings(comparator)
    Else if IsNumber(comparator) Then
        Return checkNumbers(comparator)
    End If
    Return False
End Sub

Private Sub checkNumbers(comparator As Double) As Boolean
    For Each s As String In ranges
        Dim w() As String = Regex.Split("~", s)
        If w.Length = 2 Then
            Dim lowest, highest As Double
            If w(0).toLowerCase = "min" Then lowest = -1/0 Else lowest = w(0)
            If w(1).toLowerCase = "max" Then highest = 1/0 Else highest = w(1)
            If comparator >= lowest And comparator <= highest Then Return True
        Else
            If Abs(w(0).As(Float) - comparator) < tolerance Then Return True
        End If
    Next
    Return False
End Sub

Private Sub checkStrings(comparator As String) As Boolean
    For Each s As String In ranges
        Dim w() As String = Regex.Split("~", s)
        If w.Length = 2 Then
            If w(0).Trim.CompareTo(comparator.trim) <=0 And w(1).Trim.CompareTo(comparator.trim) >=0 Then Return True
        Else
            If w(0) = comparator Then Return True
        End If
    Next
    Return False
End Sub