arkadaşlar ben sadece sayı değeri girmek istiyorum ve de virgul olacak tek bi tane girilen nasıl bir kod yazmam gerek aşağıda bi kod var onu duzltebilir miyiz .net 2003 olarak vb 6.0 olarak deil

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim i, r As Integer
r = TextBox1.Text.Length - 1
For i = 0 To r

If Not (IsNumeric(TextBox1.Text.Substring(i, 1))) Then
TextBox1.Text = TextBox1.Text.Remove(i, 1)
r = r - 1
i -= 1
End If
Next


End Sub
End Class
__________________