Пытаюсь вызвать функцию с помощью CallByName выдает ошибку:Argument not optional
Функция объявлена в классе:

Public Function TTT(s As String, s1 As String)
MsgBox s & s1
End Function


Вызываю вот так:

Private Sub Command1_Click()
Dim aParams() As Variant
Dim oClass1 As Class1
On Error GoTo Error
Set oClass1 = New Class1
ReDim aParams(0 To 1)
aParams(0) = "DDD": aParams(1) = "ЖЖЖ"
CallByName oClass1, "TTT", VbMethod, aParams
Error:
MsgBox Err.Description
End Sub