'========================================

Function zStr_Extract(sTemp, sFrom, sTo)

	Dim iLen, iPosn, sLine

	iLen = Len(sFrom)

	iPosn = inStr(sTemp,sFrom)

	If iPosn = 0 Then
		Print "zStr_Extract - Failed - From String Not Found"
		zStr_Extract = ""
		Exit function
	End If

	sLine = Mid(sTemp,iPosn+iLen)

	iPosn = inStr(sLine,sTo)

	If iPosn = 0 Then
		Print "zStr_Extract - Failed - To String Not Found"
		zStr_Extract = ""
		Exit function
	End If

	sLine = Left(sLine,iPosn-1)

	zStr_Extract = sLine

End Function

'========================================