vb6 ehm problema con una funzione semplice

[ciro78]

dopo aver postato una domanda sulle api sembra ridicolo ma non mi trovo con una funzione

in un progetto ho un modulo dove definisco la seguente funzione

Function divisione(x1 As Integer, x2 As Integer) As Integer
divisione = (x1 / x2)
End Function

che richiamo nel form

Private Sub Command1_Click()
Y1 = CInt(Text1.Text)
Y2 = CInt(Text2.Text)
Text3.Text = CStr((divisione(Y1, Y2)))

End Sub

mi dice che il tipo passato è sbaglliato per riferimento

ma la conversione la faccio quindi non vedo il problema dov'è?
meglio una pausa!