Résulat calcul date dans TextBox

Bonjour,

J'essaie vainement de remplir automatiquement un TextBox au format date en soustrayant deux données affichés dans deux ComboBox.

J'ai rempli mes ComboBox avec un fichier heure au format hh:mm.

au niveau du code j'ai écrit les lignes suivantes :

Private Sub ComboBox5HeureDebut_Change()
ComboBox5HeureDebut.Value = Format(ComboBox5HeureDebut.Value, "hh:mm")
End Sub

Private Sub ComboBox6HeureFin_Change()
ComboBox6HeureFin.Value = Format(ComboBox6HeureFin.Value, "hh:mm")
TextBox2Duree.Value = Format(TextBox2Duree.Value, "hh:mm")
TextBox2Duree.Value = ComboBox6HeureFin.Value - ComboBox5HeureDebut.Value
End Sub

Et mes heures apparaissent bien dans chacune de mes ComboBox au format hh:mm.

Private Sub BoutonValider_Click()
...
If Not IsDate(ComboBox5HeureDebut.Value) Then
MsgBox "Veuillez entrer une heure au format hh:mm"
ComboBox5HeureDebut.Value = Format(ComboBox5HeureDebut.Value, "hh:mm")
ComboBox5HeureDebut.SelStart = 0
ComboBox5HeureDebut.SelLength = Len(ComboBox5HeureDebut.Value)
ComboBox5HeureDebut.SetFocus
Exit Sub
End If
If Not IsDate(ComboBox6HeureFin.Value) Then
MsgBox "Veuillez entrer une heure au format hh:mm"
ComboBox6HeureFin.Value = Format(ComboBox6HeureFin.Value, "hh:mm")
ComboBox6HeureFin.SelStart = 0
ComboBox6HeureFin.SelLength = Len(ComboBox6HeureFin.Value)
ComboBox6HeureFin.SetFocus
Exit Sub
End If
...
End Sub

Lorsque que je lance la validation de l'UserForm le TextBox2Duree reste vide
TextBox2Duree.Value = ComboBox6HeureFin.Value - ComboBox5HeureDebut.Value
si je regarde le code ligne par ligne et que je survole précisement cette ligne: TextBox2Duree.Value =0 mais me donne des valeurs au format heure pour les deux ComboBox (exemples : ComboBox6HeureFin.Value=11:30 et ComboBox5HeureDebut.Value= 08:30

...au secours...à l'aide....

cela fait déjà trois jours que j'essaie vainement de trouver la solution, mais rien n'y fait.

merci

bernard.toulouse