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

[savraska]

Функция возвращает строку, состоящую из первых и вторых букв строк аргументов.
у меня считывает только два символа из строки
Function func5(diap)
n = diap.Rows.Count
m = diap.Columns.Count
For i = 1 To n
For j = 1 To m
stroka = diap(i, j)
mystroka = Left(stroka, 2)
Next j
Next i
func5 = mystroka
End Function

[EducatedFool]

Function FirstChars(ParamArray args() As Variant) As String
    For i = LBound(args) To UBound(args)    ' перебираем все параметры
        If Not IsMissing(args(i)) Then FirstChars = FirstChars & Left(args(i), 2)
    Next i
End Function

Sub ПримерИспользования()
    MsgBox FirstChars("Пользовательская", "функция", "с", , "параметрами")
End Sub