<code>Private Sub Text1_KeyPress(KeyAscii As Integer)
  <font color=green>' Return abfragen</font>
  If KeyAscii = vbKeyReturn Then
    KeyAscii = 0  <font color=green>' Beep unterdrücken</font>
 
    Select Case UCase$(txtLieferart.Text)
      Case "A"
        txtLieferart.Text = "Ab Werk"
        Load frmPosition
        frmPosition.Show 1
      Case "F"
        txtLieferart.Text = "Frei Baustelle"
        Load frmPosition
        frmPosition.Show 1
      Case "W"
        txtLieferart.Text = "Frei Werk"
        Load frmPosition
        frmPosition.Show 1
    End Select
  End If
End Sub</code>