CALCULAR QUANTIDADE

Adicione 3 TextBox nenhuma Forma 2 e 3 botoes Labels

TextBox1 - Nome: txtQuant
TextBox2 - Nome: txtMultValor1
TextBox3 - Nome: txtTotalMult
Label1 - Texto: Quantidade
Label2 - Texto: Preço Unid.
Label3 - Texto: Total
Botão1 - Texto: >>
Botão2 - Texto: Limpar

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

Public Class Form1

Dim Mult1 As Decimal
Dim Mult2 As Decimal
Dim MultTotal 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 MultMoeda(ByRef txt As TextBox)
        'As variaveis
        Dim MultValor1 As String = String.Empty
        Dim MultValor2 As Double = 0

        Try

            MultValor1 = txt.Text.Replace(",", "").Replace(".", "")
            If MultValor1.Equals("") Then MultValor1 = ""
            MultValor1 = MultValor1.PadLeft(3, "0")
            If MultValor1.Length > 3 And MultValor1.Substring(0, 1) = "0" Then MultValor1 = MultValor1.Substring(1, MultValor1.Length - 1)
            MultValor2 = Convert.ToDouble(MultValor1) / 100
            txt.Text = String.Format("{0:N}", MultValor2)
            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception
        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

Select Case (txtTotalMult.TextLength)
            Case 4
                txtTotalMult.SelectionStart = 5
        End Select

Código do Botão:  >>

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

Mult1 = txtQuant.Text
Mult2 = txtMultValor1.Text
MultTotal = Mult1 * Mult2
txtTotalMult.Text = MultTotal

Código do Botão:  Limpar

txtQuant.Text = ""
txtMultValor1.Text = ""
txtTotalMult.Text = ""

Código do TextBox:  Valor Unid. -  Nome:  txtMultValor1

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

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

Form1.MultMoeda(txtMultValor1)

Código do TextBox:  Total -  Nome:  txtTotalMult

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

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

Form1.MultMoeda(txtTotalMult)