Dim sPos As Long
Dim ePos As Long
Dim sChars As String
 
' 1. Anführungszeichen suchen
sPos = InStr(sText, Chr$(34))
If sPos > 0 Then
  ' 2. Anführungszeichen suchen
  ePos = InStr(sPos + 1, sText, Chr$(34))
  If ePos > 0 Then
    ' alle zwischen den beiden Anführungszeichen auslesen
    sChars = Mid$(sText, sPos + 1, ePos - sPos - 1)
  End If
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de