Private Sub Command3_Click()
  Dim sLines() As String
  Dim I As Integer
  Dim Leerzeichen As String
 
  sLines = Split(Text1.Text, vbCrLf)
  For I = 0 To UBound(sLines)
    If sLines(I) <> "" Then
      sLines(I) = Mid$(sLines(I), InStr(sLines(I), "()") + 1)
      sLines(I) = Left$(sLines(I), InStr(sLines(I), " ") - 1)
    End If
  Next I
 
  Text1.Text = Join(sLines, vbCrLf)
End Sub