forma aşağıdaki gibi bir fonksiyon ekleyip istediğiniz yerden çağırabilirsiniz mesela çıkış saatiinden çıkınca yada çalıştığı saat metin kutusuna girince olaylarından çağrılabilir

Function Hesapla()

If Len(TextBox2) > 0 And Len(TextBox3) > 0 Then

    BasSure = Split(TextBox3, ":")(0) * 60 + Split(TextBox3, ":")(1) - (Split(TextBox2, ":")(0) * 60 + Split(TextBox2, ":")(1))

    TextBox4 = Format(BasSure \ 60, "00") & ":" & Format(BasSure Mod 60, "00")

    Ucret = IIf(Len(TextBox1) > 0, TextBox1, 0)

    TextBox5 = Round(Ucret * (BasSure / 60), 2)

End If

End Function