Private Sub cmdZeileLoeschen_Click()
   Dim aText() As String
   Dim iAnfang As Integer
   Dim iEnde As Integer
   Dim i As Integer
   ' Hier wird der Text aufsplittet und jede Zeile bekommt ein eigenes Feld im
   ' Array (Chr(13) bedeutet "Return" oder "Enter")
   aText = Split(txtTextBox.Text, Chr(13))
 
   If ErsteZeileLoeschen = True Then
      iAnfang = 1
      ' Groesster bekannter Index des Arrays ermitteln
      iEnde = UBound(aText)
   Else
      iAnfang = 0
      iEnde = UBound(aText) - 1
   End If
   ' TextBox loeschen fuer die neuen Eintraege
   txtTextBox.Text = ""
   ' Und jetzt jede Zeile wieder in die Textbox schreiben und mit einem Return
   ' abschliessen
   For i = iAnfang To iEnde
      txtTextBox.Text = txtTextBox.Text & aText(i) & Chr(13)
   Next i
End Sub