Visual Basic.NET - Como poner punto despues del primer cero en vb. net

Module NUMEROSPAL

    Public CODIGOSEPARADOR As Char = System.Globalization.CultureInfo.CurrentUICulture.NumberFormat.CurrencyDecimalSeparator

    Public Sub PALNUMEROS(EV As KeyPressEventArgs, DECIMALES As Integer, TXB As TextBox)

REM se llama así

        ' Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        'PALNUMEROS(e, 2, sender)

        ' el 2 es la cantidad de decimales y se puede cambiar

        'End Sub

REM Fin de comentario

        If EV.KeyChar = Convert.ToChar(Keys.Return) Then

            EV.Handled = True

            TXB.Focus()

        ElseIf EV.KeyChar = "."c Or EV.KeyChar = ","c Then

            If (TXB.Text.IndexOf(","c) >= 0) Or (DECIMALES = 0) Then

                EV.Handled = True

            Else

                EV.KeyChar = CODIGOSEPARADOR  REM","c

            End If

        ElseIf EV.KeyChar = "-"c And TXB.TextLength = 0 Then

            EV.KeyChar = "-"c

        ElseIf TXB.Text.IndexOf(","c) > 0 Then

            If (TXB.Text.Length - TXB.Text.IndexOf(","c) > DECIMALES) And (TXB.SelectionStart > TXB.Text.IndexOf(","c)) And (Not (Char.IsControl(EV.KeyChar))) Then

                EV.Handled = True

            End If

        ElseIf Not (Char.IsControl(EV.KeyChar) Or Char.IsDigit(EV.KeyChar)) Then

            EV.Handled = True

        End If

    End Sub

End Module