SOMANDO VALORES COM FRAÇÃO

Adicione dois TextBox e dois Botões no Form:

TextBox1 - Name: txtValor01

TextBox2 - Name: txtMonetario

Botão 1 - Text: Calcular

Botão 2 - Text: Limpar

Clique duas vezes no Form e coloque as variáveis:

Public Class Form1

    Dim v1 As Decimal

    Dim total As Decimal

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 Botão: Calcular

Clique duas vezes no  botão Calcular e coloque o seguinte código:

v1 = txtValor01.Text

total = v1 + total

txtMonetario.Text = total

Código do Botão: Limpar

 txtValor01.Text = ""

Código do TextBox: Total - Name: txtMonetario

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)

Código do TextBox: Valor - Name: txtValor01

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(txtValor01)