VB6 - Devolver dos valores en una función

[Laufwerk]

h eprobado con la primera forma y me dice que no coinciden los tipos, te pongo aqui mi codigo

Código:

Function divApellido(ByVal surnames As String)
    Dim apellidos(1), valor() As String
    valor = Split(surnames, " ")
    apellidos(0) = valor(0)
    apellidos(1) = valor(1)
    divApellido = apellidos
End Function

y asi como la llamo

Código:

        
Dim apellidos() As String
       apellidos = divApellido(rsPeticions.Fields("papell_pac").Value)
       
       MsgBox apellidos(0)
       MsgBox apellidos(1)

Gracias!!!