Dim lPos As Long
Dim sArtikel As String
Dim sBez As String
 
With RichTextBox1
  lPos = InStr(.Text, "eBay-Artikel")
  If lPos > 0 Then
    sBez = Mid$(.Text, lPos + 15)
    sArtikel = Left$(sBez, InStr(sBez, vbCrLf) - 1)
    sBez = LTrim$(Mid$(sBez, InStr(sBez, ")") + 1))
    If Left$(sBez, 1) = "-" Then sBez = Mid$(sBez, 2)
    If Left$(sBez, 2) = vbCrLf Then sBez = Mid$(sBez, 3)
    If InStr(sBez, vbCrLf) > 0 Then sBez = Left$(sBez, InStr(sBez, vbCrLf) - 1)
  End If
End With
 
MsgBox sArtikel & vbCrLf & sBez