Format [hh]:mm dans un TextBox suite à saisie dans un ComboBox

TextBox1.Value = C.Offset(, 1).Text

Private Sub ComboBox1_Change()
  Set C = Sheets("FJT").Range("Jour").Find(What:=CDate(ComboBox1.Value))
 '----sous- entend que la cellule soit au format correct
  If Not C Is Nothing Then TextBox1.Value = C.Offset(0, 1).Text 

' ----ne marche pas     
  'If Not C Is Nothing Then TextBox1.Value = Format(C.Offset(0, 1),"[hh]:mm")  
     
' **** alternative fonctionnelle affichage au format souhaité indépendant du format cellule ****
  'If Not C Is Nothing Then TextBox1.Value = Evaluate("=TEXT(" & C.Offset(0, 1).Address & ", ""[hh]:mm"")")
End Sub