Разность среднего арифметического и минимального

Function Dif(X() As Double, Optional p As Long = 0, _
                          Optional s As Double = 0#, _
                          Optional mi As Double = 0#) As Double
  If p > UBound(X, 1) Then
     Dif = s / (p - 1) - mi
  ElseIf p = 0 Then
     Dif = Dif(X, 1, 0, X(1))
  Else
     If X(p) < mi Then
        Dif = Dif(X, (p + 1), s + X(p), X(p))
     Else
        Dif = Dif(X, (p + 1), s + X(p), mi)
     End If
  End If
End Function
 
Sub Test()
 
Dim X(1 To 5) As Double
 
    X(1) = 4
    X(2) = 0.5
    X(3) = -1
    X(4) = 7
    X(5) = 2
    
    Debug.Print Dif(X)
 
End Sub

Function f(x As Double, s As String) As String
         f = s & CStr(x)
End Function
 
Sub test_3()
    Debug.Print f(666, "aaa")          '::: Можно так
    Debug.Print f(s:="aaa", x:=666) '::: Или так (это одно и то же)
End Sub

Option Explicit
 Function MyFoo(X As Integer, Optional A As Integer = 1, Optional B As Integer = 2, Optional C As Integer = 0, Optional D As Integer = 3) As Integer
    MyFoo = X * (A + B + C + D)
 End Function
 
Private Sub Form_Click()
Print MyFoo(10, , 5, , 4) 'Пропускаем первый и третий
Print MyFoo(10, , , 5, 4) 'Пропускаем первый и второй
Print MyFoo(10, , , , 4) 'Пропускаем все кроме последнего
End Sub