textbox ta rakam harf formatı

[elvis]

arkadaşlar bir çalışma dosyam var
formun içerisinde ardışık olmayan (farklı rakamlarda) textboxlarım var.
bunların içerisinde rakam olduğunda 1.212,56 gibi yazılmasını istiyorum
eğer metin yer alıyorsa metin olarak kalmasını istiyorum
bununla ilgili olarak şöyle bişey yaptım;

Private Sub TextBox26_Change()
If TextBox26.Text = Number Then
TextBox26.Text = FormatNumber(TextBox26.Text, 2)
Else
End If
End Sub

burada textboxların içinde sadece rakam olduğunda 1.212,56 gibi yazıyor ama
metin olduğunda ya da yazdığımda format bozuluyor, rakamlar 1212,56 oluyor
bu durumun düzelmesi için ne gibi bi değişiklik yapmam gerekiyor

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub TextBox26_Change()
If isnumeric(TextBox26) = true Then TextBox26 = FormatNumber(TextBox26.Text, 2)
End Sub

 

[elvis]

teşekkür ederim levent bey!
sorunum çözüldü

 

[AlpGD]

Levent bey verdiğiniz örnek ne kadar problemimi çözdü inanamazsınız. Teşekkürler.