Dim Data1() As String
Dim Trouve As Byte
If InStr(3, TextBox1, "-") = 4 And InStr(9, TextBox1, "-") = 10 Then
Data1 = Split(TextBox1, "-")
If UBound(Data1) - LBound(Data1) = 2 Then
If Len(Data1(LBound(Data1))) = 3 Then Trouve = Trouve + 1
If Len(Data1(LBound(Data1) + 1)) = 5 Then Trouve = Trouve + 1
If Len(Data1(UBound(Data1))) = 1 Then Trouve = Trouve + 1
End If
If Trouve = 3 Then UserForm2.Show
End If