Des minutes en heures et minutes dans une txtbox

Bonjour à tous

Dans une Usf j'ai 3 textbox qui recoivent des valeurs nombres:
- TxtPREPARATION
- TxtREPOS
- TxtCUISSON.
Dans le même Usf une quatrième textbox assure le total des 3 précédentes.
Elle est censée m'afficher ce total en heures et minutes.
Mais quoi que je modifie dans mon code :
'
'|***************************************************************************|
'| TROIS MODULES POUR CALCULER la somme de TxtTEMPSTOTAL |
'|***************************************************************************|
'
Private Sub TxtPRÉPARATION_AfterUpdate()
TxtTEMPSTOTAL.Value = Val(TxtPREPARATION.Value) + Val(TxtREPOS.Value) + Val(TxtCUISSON.Value)
End Sub
Private Sub TxtREPOS_AfterUpdate()
TxtTEMPSTOTAL.Value = Val(TxtPREPARATION.Value) + Val(TxtREPOS.Value) + Val(TxtCUISSON.Value)
End Sub
Private Sub TxtCUISSON_AfterUpdate()
TxtTEMPSTOTAL.Value = Val(TxtPREPARATION.Value) + Val(TxtREPOS.Value) + Val(TxtCUISSON.Value)
End Sub
'
'|***************************************************************************|
'| AFFICHE TxtTEMPSTOTAL en HEURES ET MINUTES |
'|***************************************************************************|
'
'Private Sub TxtTEMPSTOTAL_Change()
'Dim sH As String
'Dim sM As String
'sH = Str(Int([TxtTEMPSTOTAL] / 60))
'sM = Format$([TxtTEMPSTOTAL] Mod 60, "00")
'TxtTEMPSTOTAL.Value = (sH & "h " & sM & "min")
'End Sub
j'ai toujours un message d'erreur sur la ligne sH = Str(Int([TxtTEMPSTOTAL] / 60)).
Je n'ai pas pu tester la ligne suivante car mon projet s'arrête à ce stade.
Quelqu'un peut-t'il m'aider?
Merci d'avance.