imposer format de saisie hh:mm:ss,00

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If InStr(1, TextBox2.Value, "/") > 0 Then
    Call MsgBox("Vous devez entrer une heure sous la forme " _
                & vbCrLf & "hh:mm:ss,00" _
                , vbCritical, Application.Name)
    Exit Sub
End If
If InStr(1, TextBox2.Value, ",") > 0 Then
    date2 = Mid(TextBox2.Value, 1, InStr(1, TextBox2.Value, ",") - 1)
Else
     date2 = TextBox2.Value
End If

On Error GoTo erreur
date1 = TimeValue(date2)
Exit Sub
erreur:
Call MsgBox("L'heure entrée est invalide" _
            & vbCrLf & "Vous devez l'écrire sous la forme hh:mm:ss,0" _
            , vbCritical, Application.Name)
Resume Next
End Sub