XL 2010 Tester le format dans un TextBox ?

  Dim Tabl As Variant
  Tabl = Split(Me.TextBox1, "-")
  If UBound(Tabl) <> 1 Or Len(Me.TextBox1.Text) <> 18 Or Len(Tabl(0)) <> 9 Or Len(Tabl(1)) <> 8 Then
    MsgBox "saisie incorrecte"
  End If

Sub test()
Dim a$, b$
a = "MALCH41GP-5M106099"
b = "MALCH41GP+5M106099"
If a Like "?????????-????????" Then
MsgBox "Valeur correcte", vbInformation, "Infos"
Else
MsgBox "Valeur incorrecte", vbCritical, "ERREUR"
End If
If b Like "?????????-????????" Then
MsgBox "Valeur correcte", vbInformation, "Infos"
Else
MsgBox "Valeur incorrecte", vbCritical, "ERREUR"
End If
End Sub

If TextBox1 Like "?????????-????????" Then MsgBox "Format correct !" Else MsgBox "Format incorrect  !": Exit Sub