Из средних значений двух массивов найти минимальное - VB

Private Sub Command1_Click()
Const n As Integer = 3
Dim X(1 To n) As Double, Y(1 To n) As Double
Dim Sr1 As Double, Sr2 As Double, SrMin As Double, S As String
Dim i As Integer
Randomize
         Print "Массив X"
         For i = 1 To n
                   X(i) = InputBox("X (" & i & ") =", "", Int(Rnd * 10))
                   Sr1 = Sr1 + X(i)
                   Print X(i), ;
         Next i
         Sr1 = Sr1 / n
         Print
         Print "Sr1 = " & Round(Sr1, 2)
         Print
         Print "Массив Y"
         For i = 1 To n
                   Y(i) = InputBox("Y (" & i & ") =", "", Int(Rnd * 10))
                   Sr2 = Sr2 + Y(i)
                   Print Y(i), ;
         Next i
         Sr2 = Sr2 / n
         Print
         Print "Sr2 = " & Round(Sr2, 2)
         SrMin = Min(Sr1, Sr2)
         Print
         Print "SrMin = " & Round(SrMin, 2)
End Sub
 
Function Min(a As Double, b As Double) As Double
    If a < b Then Min = a Else Min = b
End Function