nhập mã SWIFTcode trên textbox của form

[tranthemai]

Dear các anh chị!
em muốn chỉ cho nhập các giá trị của mã SWIFTcode ngân hàng chỉ có 8 hoặc 11 ký tự là chữ cái viết hoa thì viết code như thế nào ạ. em dùng code này vẫn còn bị dấu "." ạ
Private Sub txtSWIFTcodevender_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
Select Case KeyAscii
Case 65 To 90
Case 97 To 122
KeyAscii = KeyAscii - 32
Case vbKeyBack, vbKeyDelete
Case Else
KeyAscii = 0
End Select
If Len(Me.txtSWIFTcodevender.Value) = 11 Then
KeyAscii = 0
End If
Beep
End Sub
Mong diễn đàn giúp em ạ