Llamar función

Disculpa experto que te moleste tengo una pregunta tengo una función como puedo llamarla para que imprima en la caja de texto lo que genera es sobre el mismo form de hoja secundaria de datos
Public Function num_alea(bytTamaño As Byte, strTabla As String) As String
Dim strClave As String, _
    strCaracter As String, _
    rst As DAO.recordset, _
    strSQL As String
On Error GoTo num_alea_TratamientoErrores
Randomize Time
Inicio:
Do While Len(strClave) < bytTamaño
        strCaracter = Chr(32 + Rnd * 122)
    If (Asc(strCaracter) >= 48 And Asc(strCaracter) <= 57) Or _
       (Asc(strCaracter) >= 65 And Asc(strCaracter) <= 90) Or _
       (Asc(strCaracter) >= 97 And Asc(strCaracter) < 122) Then
       strClave = strClave & strCaracter
    End If
Loop
strSQL = "SELECT Count(idaccion) AS TotalPassword "
strSQL = strSQL & "FROM Seguimiento "
strSQL = strSQL & "WHERE idaccion LIKE '" & strClave & "*' "
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
If Not rst!TotalPassword = 0 Then
    GoTo Inicio
End If
CierraRecordset rst
'Pasa a num_alea el valor de la variable strClave
num_alea = strClave
num_alea_Salir:
    On Error GoTo 0
    Exit Function
num_alea_TratamientoErrores:
    MsgBox "Error " & Err.Number & " en proc. Num_alea de Documento VBA: Form_Crear Claves(" & Err.Description & ")", vbOKOnly + vbCritical
    GoTo num_alea_Salir
End Function
Esta es la función en que evento y como le diría es una función que ya estaba implementada y solo la reutilize
el campo al que quiero que vaya se llama id lo ideal seria que fuera al dar clic sobre el lugar donde esta
espero que me puedas ayudar muchas gracias