Mengubah Huruf Koma dan Titik menjadi Huruf Pemisah Desimal dengan VB.NET

Jika kita menekan huruf titik atau koma di keyboard pada program calculator windows, maka calculator akan otomatis mengubah huruf yang ditekan menjadi huruf pemisah desimal. [Huruf koma jika regional komputer Indonesia atau huruf titik jika regional komputer English(United State)]. Untuk melakukan hal tersebut di textbox pada VB.NET, kita cukup menulis source code di event KeyPress textbox tersebut. Berikut adalah source code-nya :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    'JIKA YG DITEKAN ADALAH HURUF PEMISAH RIBUAN ATAU DESIMAL
    If e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberGroupSeparator OrElse _
    e.KeyChar = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator Then
        'UBAH HURUF TERSEBUT MENJADI HURUF PEMISAH DESIMAL
        e.KeyChar = CChar(System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator)
        'NB : NUMBERGROUPSEPARATOR ADALAH PEMISAH RIBUAN PADA PENULISAN ANGKA
        'NB : NUMBERDECIMALSEPARATOR ADALAH PEMISAH DESIMAL PADA PENULISAN ANGKA
    End If
End Sub