Soru Textbox Virgülden Sonra max 2 Karakter Nasıl??

[sefa044]

Arkadaşlar userform da 1 den 12 kadar Textbox kutularım var.
Class modül kullanarak bunların keypress olaylarında;
kutulara nokta girilmesini engellemek,
virgülden sonra ise en fazla 2 karaktere izin vermek, kullanıcı 3.karaktere bassa bile keyascii=0 kodu ile engellemek
istiyorum. Enter, Exit olaylarını zaten kullanıyorum. ama bunu Keypress te yapmak istiyorum.
Yardımcı olursanız sevinirim.

 

[sefa044]

Sorunu kendim çözdüm arkadaşlar. Sizlere de faydalı olması açısından paylaşıyorum.

Class Module adını txtparaclass olarak belirledim.
Class Module içine;

Option Explicit
Public WithEvents txt_para As MSForms.Textbox

Private Sub txt_para_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(txt_para, ",") <> 0 Then 'Eğer Metin Virgül İçeriyorsa;
Dim kaçıncı
kaçıncı = WorksheetFunction.Search(",", txt_para, 1) 'MBUL Fonksiyonu
If Len(txt_para) >= kaçıncı + 2 Then KeyAscii = 0
End If
End Sub

Userform kod sayfasına;

Option Explicit
Dim TBG(412 To 423) As New txtparaclass

Private Sub UserForm_Initialize()
Dim TE As Integer
For TE = 412 To 423
Set TBG(TE).txt_para = Controls("TextBox" & TE)
Next
End Sub