fonksiyon ile kayit satiri bulma

[ekmekevi]

arkadaşlar aşağıdaki fonksiyonla bulduğum kayit satırı numarasını başka bir userformdaki aynı isimli değişkene nasıl aktarırım yardımcı olurmusunuz tesekkürler
Public Function kayitsatir_kont(sayfa As Worksheet) As Integer
On Error Resume Next
kayitsatir = sayfa.Range("A:A").Find(txt_islemno.Value).Row
If Err.Number > 0 Then
Err.Number = 0
On Error GoTo 0
kayitsatir = sayfa.Range("A" & Rows.Count).End(3).Row + 1
Else
kayitsatir = kayitsatir
End If
End Function