Вычислить функцию с неопределенным числом параметров

Option Explicit
Dim x As String
Dim a%, b%, c%, d%, e%, i%, z%
Dim m() As String
Dim n() As Integer
 
Private Sub cmdD_Click()
    x = "a b c d e 1234"
    a = 11
    b = 0
    c = -33
    d = 777
    Print Max(x)
End Sub
 
Private Function Max(x As String) As Integer
    m = Split(x)
    z = UBound(m)
    ReDim n(z)
    For i = 0 To z
        Select Case m(i)
            Case "a": n(i) = Val(a)
            Case "b": n(i) = Val(b)
            Case "c": n(i) = Val(c)
            Case "d": n(i) = Val(d)
            Case "e": n(i) = Val(e)
            Case Else
                n(i) = Val(m(i))
        End Select
    Next i
    Max = n(0)
    For i = 1 To z
        If Max < n(i) Then Max = n(i)
    Next i
End Function

Private Sub Form_Load()
    Dim max1 As Long, max2 As String
    
    max1 = Max(1, 5, 8, 2, 4, 7, 4, 22)
    max2 = Max("a", "v", "z", "w")
End Sub
 
Private Function Max(ParamArray v()) As Variant
    Dim x As Variant, i As Boolean
    For Each x In v
        If i Then
            If x > Max Then Max = x
        Else: Max = x: i = True
        End If
    Next
End Function

Private Sub Form_Load()
    Dim Max11 As Long, Max12 As String
 
    Max11 = Max1(Array(1, 5, 3, 7, 8, 6, 5))
    Max12 = Max2(Array("a", "v", "z", "w"))
End Sub
 
' Так быстрее
Private Function Max1(v As Variant) As Variant
    Dim x As Variant, i As Long
    For Each x In v
        If i Then
            If x > Max1 Then Max1 = x
        Else: Max1 = x: i = True
        End If
    Next
End Function
Private Function Max2(v As Variant) As Variant
    Dim i As Long
    For i = 0 To UBound(v)
        If i Then
            If v(i) > Max2 Then Max2 = v(i)
        Else: Max2 = v(i)
        End If
    Next
End Function

Private Function Max(ParamArray v()) As Variant
   Dim x As Variant
   For Each x In v
       If x > Max Then Max = x
   Next
End Function