[VB6] - Function che restituisce un array

[xegallo]

certo che è possibile
un piccolo esempio di una funzione che data una parola ti restituisce un array con dentro tutte le lettere del parametro

Private Function ArrayChar(parola As String) As String()
Dim a() As String
Dim i As Integer
    ReDim a(1 To Len(parola))
    For i = 1 To Len(parola)
        a(i) = Mid$(parola, i, 1)
    Next i
    ArrayChar = a() '//importante serve per potere restituire l'array
End Function

per testarla

Private Sub Form_Load()
Dim a() As String
Dim i As Integer

a() = ArrayChar("ciao")
For i = LBound(a) To UBound(a)
    Debug.Print a(i)
Next i
End Sub