vb.net far scrivere , al posto di .

[Teflo]

If e.KeyChar = Convert.ToChar(46) Then 
sender.appendtext(",") 
e.Handled = True 
End If