Добрый день!

Есть функция, в результате работы которой образуется массив. Получается вернуть только отдельные элементы. А как вернуть весь массив? И как правильно его принять?

Public Function FindSubString(ByVal SS As String, ByVal Begin As String) As Integer
Dim A(1000) As Integer
Dim i As Integer = 0
Dim LenBegin As Integer = 0
Dim j As Integer = 1
LenBegin = Len(Begin)
Do
A(i) = InStr(j, SS, Begin)
j = A(i) + LenBegin
i = i + 1
Loop While A(i - 1)
Return ?
End Function

Antonariy

Спасибо большое, это помогло.