TextBox da karakter sayısını sınırlama

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar ondalık rakamsal verilerle çalıştığım textboxlara sınırlama getirmek istiyorum. Örneğin 0.15 , burada 4 karakter mevcut. Derdim 4 karakterden fazlasını textboxa yazdırmamak. Öncelikli sorum bu. Bir ikincisi daha var ki çözümü var mıdır bilemiyorum. Bazan dalgınlık eseri 2 nokta kullanabiliyoruz. Sonra da bunu kullandığımızı unutabiliyoruz. (0..15 gibi ) . İkinci nokta işaretini de textboxa almasın istiyorum. Yani 4 karakterle sınırlı kalacak ikinci bir noktalama işaretini almayacak. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki linki inceleyiniz. Bende oraya bakarak birşeyler yaptım, deneyiniz.

http://www.excel.web.tr/f165/

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    Dim deg
    Set deg = CreateObject("VBScript.Regexp")
    deg.Pattern = "^\d{1,1}(\.\d{1,2})?$"
    deg.Global = True
    If deg.test(TextBox1) = False Then Cancel = True
    Set deg = Nothing
    
End Sub