Не знаю как описать функцию возвращающею масив.........

 

Function fn (s as string) as variant

End Function

не так?
Количество элемнтов в массиве можно определить Ubound

 

Function TBGetFormula(stroka As String) As Variant
Redim TBGetFormula(k/2) As Variant
End Function

вот делаю так. на редим ругается..........

 

dim result() as String

redim result(0 to skoka_nado)
.
.
.
TBGetFormula = result

 

СпУсибо!