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

Option Explicit
 
Dim a As Integer, b As Integer, c As Integer
 
Private Sub Form_Load()
  AutoRedraw = True
  a = InputBox("1-å ÷èñëî")
  b = InputBox("2-å ÷èñëî")
  c = InputBox("3-å ÷èñëî")
  If a = 1 Or a = 3 Then Print "1-å ÷èñëî ïîïàäàåò"
  If b = 1 Or b = 3 Then Print "2-å ÷èñëî ïîïàäàåò"
  If c = 1 Or c = 3 Then Print "3-å ÷èñëî ïîïàäàåò"
End Sub

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