PosApostroph = InStr(Pos + Len(strInput), strInput, "'")

Private Sub GetBeforeAndAfter(ByVal strInput As String, strBefore As String, _
  strAfter As String)
    Dim Pos As Integer, PosApostroph As Integer
 
    'get the position of the seperating text
    Pos = InStr(1, strInput, " dies ist ein Test ")
 
    'if the seperating text is found
    If Pos <> 0 Then
        'get the text before the seperating text
        strBefore = Left(strInput, Pos)
 
        'get the position of the first Apostroph after the seperating text
        PosApostroph = InStr(Pos + Len(strInput), strInput, "'")
 
        'check if the apostroph was found
        If PosApostroph <> 0 Then
            'get the text from the seperating text to the apostroph
            strAfter = Mid(strInput, Pos + Len(strInput), PosApostroph - (Pos + _
              Len(strInput)))
        Else
            'if the apostroph was not found get the rest of the text until the 
            ' end
            strAfter = Right(strInput, Len(strInput) - (Pos + Len(" dies ist" & _
              "ein Test ")))
        End If
    Else
        'seperating text was not found
        Debug.Print "Not found in String"
    End If
End Sub