[VB6] - Function che restituisce un array

[buba88]

E' possibile fare in modo che una function resituisca un array di valori?
se si come?

[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

[buba88]

mmm io avevo provato esattamente in uesto modo ma mi da un errore:
"l'oggetto nn è più valido"

ti posto il codice

in un modulo c'è questa funzione che ,passatogli per parametro l id del cliente, ricava da una database i suoi dati:

Public Function Dati_Cliente(id As Integer) As Variant()
Dim valori() As Variant
rs_c.Open "SELECT * FROM clienti WHERE id = " & id
valori = Array(rs_c!id, rs_c!Cliente, rs_c!Indirizzo, rs_c!Telefono, rs_c!Cellulare, rs_c!Note)
rs_c.Close
Dati_Cliente = valori()
End Function

poi in un form richiamo questa funzione passandogli come valore una variabile globale definita in precedenza

Private Sub Form_Load()
Dim dati() As Variant
dati = Dati_Cliente(Id_Cliente)
lblNome2.Caption = dati(1)
txtIndirizzo.Text = dati(2)
txtTelefono.Text = dati(3)
txtCellulare.Text = dati(4)
txtNote.Text = dati(5)
End Sub

a me nn sembra ci siano errori rispetto all esempio che mi hai dato tu.
qualche suggerimento?