Format hh:mm dans textbox

Bonjour,

Aprés de nombreuses recherches, je n'est pas résolu mon problème.
J'ai un textbox dans un userform ou je rentre des heures au format numérique Ex:2300 et elle sont automatiquement transformé en 23:00. Jusque la no problème. ou cela se corse c'est que quand je tape 2400 il me met 00:00 alors que que je voudrais 24:00. Comment faire?
Ci dessous les macros :

Private Sub conversionHeure(ctlTextBox As MSForms.TextBox)
'Convertir les texte des textBox en heure minutes
Dim heures As Byte, minutes As Byte

'Heures = les deux chiffres de gauche
heures = Val(Left(ctlTextBox.Text, 2))

'minutes= les deux chiffres de droites
minutes = Val(Right(ctlTextBox.Text, 2))

'conversion
ctlTextBox.Text = Format(TimeSerial(heures, minutes, 0), ("hh:mm"))

End Sub
Private Sub TextBox1_Change()
If Len(TextBox1) = 4 Then
conversionHeure TextBox1

TextBox2.SetFocus
End If
End Sub

Private Sub TextBox2_Change()
If Len(TextBox2) = 4 Then
conversionHeure TextBox2

CommandButton2.SetFocus
End If
End Sub

merci à vous tous.