Private Sub Anteil_KeyPress(ByVal sender As Object, ByVal e As  _
        System.Windows.Forms.KeyPressEventArgs) _
        Handles txtAnteil_MatA1.KeyPress, txtAnteil_MatA2.KeyPress 'usw ...
 
        Dim txt As TextBox = CType(sender, TextBox)
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            If txt.Equals(txtAnteil_MatA1) Then sql_AnteilMatA1 = txt.Text
            If txt.Equals(txtAnteil_MatA2) Then sql_AnteilMatA2 = txt.Text
            '.... usw.
        End If
    End Sub