Dim sLines() As String
  Dim i As Integer
 
  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), InStrRev(sLines(i), " ") - 1)
    End If
  Next i
 
  Text1.Text = Join(sLines, vbCrLf)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de