Visual Basic - tiempo restante, tiempo transcurrido.

nesecito que alguien me ayude en esto de visual basic cuando un archivo esta procesando quiero saber cuanto tiempo va tardar aqui le envio los codigo:

Function GO(WFIn As String, WFOut As String, WPass As String) As String

Dim StartByte As Long
Dim WByteFile As Long
Dim Result As Long
Dim DataIn As String * 1
Dim DataOut As String
Dim i

WFIn = Trim(WFIn)
WFOut = Trim(WFOut)
'chequeos necesarios
If WFIn = "" Or WFIn = " " Then GoSub Finalizar
If WFOut = "" Or WFOut = " " Then GoSub Finalizar

StartByte = 1
WByteFile = FileLen(WFIn)

On Error GoTo Finalizar
Open WFIn For Binary As #10 'archivo origen
Open WFOut For Binary As #15 'archivo destino

For i = StartByte To WByteFile Step 1
Get #10, i, DataIn 'Leemos los datos del archivo origen
Result = (i / WByteFile) * 100
LblTByte.Caption = "Tamaño De Archivo: " & i & " / " & WByteFile & " Bytes."
LblProgress.Caption = "Procesando: " & Result & " %"
ProgressBar1.value = Result
ProgressBar2.value = Result
DataOut = ""
Encriptar WPass, DataIn, DataOut 'encriptamos
Put #15, i, DataOut 'Escribimos en el archivo nuevo
DoEvents
Next i

Close #10
Close #15
GO = "Ok"
Exit Function

Finalizar:
OsenXPButton4.Enabled = True
OsenXPButton3.Enabled = True
OsenXPButton1.Enabled = True
OsenXPButton2.Enabled = True
MsgBox "Ocurrio Un Error!"
GO = "NotOk"
End Function