VB6 - Devolver dos valores en una función

[David]

Por ejemplo:

Código vb:

Function fArray(ByVal param As String)
' Primera forma, devolviendo directamente un array
Dim vReturn(1) As String
vReturn(0) = "primer valor"
vReturn(1) = "segundo valor"
fArray = vReturn
End Function
 
Sub fArray2(ByVal param As String, vReturn() As String)
'Segunda forma, tomando como parámetro ByRef un array y modificarlo
vReturn(0) = "primer valor"
vReturn(1) = "segundo valor"
End Sub
 

Y para usarlo sería:

Código vb:

'Primera forma
Dim vReturn() As String
vReturn = fArray("param")
MsgBox vReturn(0)
MsgBox vReturn(1)
 
'Segunda forma
Dim vReturn2(1) As String
fArray2 "param", vReturn2
MsgBox vReturn2(0)
MsgBox vReturn2(1)
 

Saludos .