[VB6] Restituzione di un vettore da parte di una funzione

[tina8]

Salve, vorrei far restituire un vettore ad una funzione in Visual Basic. Ho scritto il seguente codice ma non va. Ho anche intuito l'errore ma non riesco a trovare una soluzione. Qualcuno può darmi qualche suggerimento? Grazie

p.s. L'ho eseguito in Visual Basic 6.0 !

Dim n As Integer
Dim num1 As Integer
Dim num2 As Integer
Dim ris(1 To 2) As Integer

Private Sub Command1_Click()
      num1 = Val(InputBox("Inserire il primo numero", "Inserimento numeri"))
      num2 = Val(InputBox("Inserire il secondo numero", "Inserimento numeri"))
      ris() = calcola(num1, num2)
      Text1.Text = CStr(ris(0))
      Text2.Text = CStr(ris(1))
End Sub

Public Function calcola(n1, n2 As Integer) As Integer()
     Dim r(1 To 2) As Integer
     r(1) = n1 / n2
     r(2) = n1 Mod n2
     calcola = r()
End Function