Como le aplico progressbar a mi funcion?

[franko1809]

Bueno la funcion va asi, como podria aplicarle progressbar?

Código:

Public Function CopiaBDPwd(sOrigen As String, sDestino As String, sPwd As String) As String
    ' Base de datos con contraseña
    ' marcar referencia: Microsof Jet and Replication objects 2.6 Library
    Dim je As JRO.JetEngine
    Set je = New JRO.JetEngine
    
    If Len(Dir$(sDestino)) Then Kill sDestino
    je.CompactDatabase "Data Source=" & sOrigen & ";" & _
        "Jet OLEDB:Database Password=" & sPwd, _
        "Data Source=" & sDestino & ";" & _
        "Jet OLEDB:Database Password=" & sPwd
    
    CopiaBDPwd = "El proceso se completo satisfactoriamente en '" & sDestino & "'."
End Function