Private Sub txtPreis_TextChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles txtPreis.TextChanged
        preis = CDec(txtPreis.Text)
        txtPreis.Text = preis.ToString("c")
        preis = CDec(txtPreis.Text)
 
 
 
    End Sub

 Private Sub cmdHinzufügen_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles cmdHinzufügen.Click
 
 
 
        Dim menge As Integer
        Dim gPreis As Decimal
 
        Try
            menge = CInt(txtMenge.Text)
        Catch
            MessageBox.Show("Bitte geben Sie die Menge ein.", _
              Fehler_Dateneingabe, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
        gPreis = menge * preis
 
        txtgPreis.Text = gPreis.ToString("c")