Cần giúp định dạng cho TexxtBox

[ltqnl3]

Cần giúp đỡ thiết đặt Input cho TextBox

Tôi muốn khi nhập vào một TextBox mà nếu giá trị nhập vào không phải một trong các giá trị: 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, 12 thì thông báo "Dữ liệu không đúng" thì làm thế nào?
Nhờ các bác giúp đỡ

 

[sealand]

Trước không có file ví dụ và bạn mở rộng số đế 15. Mình làm file ví dụ giờ lại thấy có file của bạn. Bạn tham khảo file của mình vậy.
Mình có 2 đoạn code sau và bạn thử tìm trường hợp khác với yêu cầu mà nhập được để hoàn thiện thêm nhé (Trừ trường hợp 00 là khởi điểm)

Option Explicit
Private Sub TextBox1_Change()
Dim i
Dim kt, kt1 As String
Me.TextBox1 = Format(Me.TextBox1, "00")
For i = 1 To 15
kt1 = kt1 & Right("0" & i, 2) & ";"
Next
If Len(Me.TextBox1) > 2 Then Me.TextBox1 = Right(Me.TextBox1, 2)
If InStr(1, kt1, Me.TextBox1) = 0 Then Me.TextBox1 = "00"
End Sub
'====================================================
Private Sub UserForm_Initialize()
Me.TextBox1 = "00"
End Sub

 

[ltqnl3]

Cảm ơn bạn đã giúp đỡ