Dim sLines() As String
  Dim i As Integer
  Dim sText 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), InStrRev(sLines(i), " ") - 1)
    End If
  Next i
 
  sText = ""
  For i = 0 To UBound(sLines)
    If Trim$(sLines(i)) <> "" Then
      sText = sText & sLines(i) & vbCrLf
    End If
  Next i
  Text1.Text = sText

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de