CÓDIGO PARA FORMATO MOEDA NO TEXTBOX

Coloque um TextBox - Name: txtMonetario no Form

Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o 

End Sub e End Class:

Public Shared Sub FormatoMoeda(ByRef txt As TextBox)

        'As variaveis

        Dim FormatoMoedaValor1 As String = String.Empty

        Dim FormatoMoedaValor2 As Double = 0

        Try

            FormatoMoedaValor1 = txt.Text.Replace(",", "").Replace(".", "")

            If FormatoMoedaValor1.Equals("") Then FormatoMoedaValor1 = ""

            FormatoMoedaValor1 = FormatoMoedaValor1.PadLeft(3, "0")

            If FormatoMoedaValor1.Length > 3 And FormatoMoedaValor1.Substring(0, 1) = "0" Then FormatoMoedaValor1 = FormatoMoedaValor1.Substring(1, FormatoMoedaValor1.Length - 1)

            FormatoMoedaValor2 = Convert.ToDouble(FormatoMoedaValor1) / 100

            txt.Text = String.Format("{0:N}", FormatoMoedaValor2)

            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception

        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

Select Case (txtMonetario.TextLength)

Case 4

txtMonetario.SelectionStart = 5

End Select

Código do TextBox:

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo FormatoMoeda, neste caso é Form1

Form1.FormatoMoeda(txtMonetario)