Как найти минимальное значение? - VB

Function min(K() As Integer, Optional i As Integer = 0, Optional r As Integer = 0) As Integer
    If i = 0 Then
      min = min(K, 1, K(0))
    ElseIf i > UBound(K, 1) Then
      min = r
    Else
      min = IIf(K(i) < r, min(K, i + 1, K(i)), min(K, i + 1, r))
    End If
End Function
 
Sub Test()
Dim X(0 To 3) As Integer
  X(0) = 3
  X(1) = -5
  X(2) = 0
  X(3) = -11
  Debug.Print min(X)
End Sub