Dim pos As Long
Dim lastPos As Long
Dim iText As String
Public Terminator As String
pos = InStr(lastPos, iText, Terminator)
Dim pos As Long
Dim lastPos As Long
Dim iText As String
Public Terminator As String
pos = InStr(lastPos, iText, Terminator)