Даны 3 действительных числа. Выбрать те числа, которые принадлежат заданному интервалу - VB

Option Explicit
  
Private Sub Command1_Click()
Dim Arr, i As Integer, s As String
 
    Arr = Array(N(InputBox("1-е число")), N(InputBox("2-е число")), N(InputBox("3-е число")))
    
    For i = 0 To UBound(Arr)
         Print Arr(i)
         If Interval(Arr(i)) Then s = s & i + 1 & " -е число (" & Arr(i) & ") попадает" & vbCrLf
    Next i
    
    If s <> "" Then MsgBox s Else MsgBox "Ни одно число не попадает."
    
End Sub
 
Function Interval(ByVal dblVal As Double, Optional Min As Integer = 1, Optional Max As Integer = 3) As Boolean
    If dblVal >= Min And dblVal <= Max Then Interval = True
End Function
 
Function N(ByVal s As String) As Double
    N = Val(Replace(s, ",", "."))
End Function