Zitat:

Aber wie bekomme ich es hin, daß mir die 2 FETTEN Wörter aus dem 2. Satz geliefert werden ? Das erste holt er sich ja, aber mit dem 2. Wort hat er halt Probleme...

Dim sData() As String
sData = Split(sLine, " ")
 
' 1. fette Wort
MsgBox sData(0)
 
' 2. fette Word
For i = 0 To UBound(sData)
  If InStr(sData, "'") > 0 Then
    MsgBox sData(i)
    Exit For
  End if
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de