Dim sPos As Long
  Dim ePos As Long
  Dim sKey As String
  Dim sValue As String
 
  sKey = "ConfigB="
  sPos = InStr(Text1.Text, sKey)
  If sPos > 0 Then
    ePos = InStr(sPos + 1, Text1.Text, Chr$(13))
    If ePos = 0 Then ePos = Len(Text1.Text) + 1
    sValue = Mid$(Text1.Text, sPos + Len(sKey), ePos - (sPos + Len(sKey)))
    MsgBox sValue
  End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de