Несмейтесь. Я действительно не знаю :)
Поправьте код, плиз

Function MyFunc() As Variant
Dim t(1 to 4) As String
t(1)="1"
t(2)="2"
t(3)="3"
t(4)="4"
MyFunc=t
End Function


Sub MySub()
Dim k(1 to 4)
k=MyFunc() 'ERROR: Can't assign to array
End

Идет ;-)
Спасибо!