[VB6] Chỉ nhập các ký tự được cho phép vào Textbox

Dưới đây là đoạn code tham khảo được trên mạng, sử dụng để giới hạn chỉ được nhập các ký tự cho phép vào Textbox. Code này sẽ chỉ cho nhập các ký tự số, dấu "/", phím backspace, convert dấu "." thành "/". Rất hữu ích cho các bạn muốn tạo Texbox để nhập ngày tháng :) Có thể tham khảo thêm KeyAscii để đưa vào Code các ký tự khác theo yêu cầu của mình nhé.

Option Explicit
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = DateOnly(KeyAscii)
End Sub

Private Function DateOnly(intKey As Integer) As Integer
Dim intResult As Integer
intResult = intKey
Select Case intKey
    Case vbKeyBack        'allow backspace
    Case vbKey0 To vbKey9 'allow numbers
    Case 45               'allow -
    Case 46               'change . into /
        intResult = 47
    Case 47               'allow /
    Case Else             'dont allow anything else
      intResult = 0
End Select
DateOnly = intResult
End Function