Instr Trouble

SOLVED

Having trouble pinpointing why my script is not ending when a string of text is found in a search string.  I am searching in this text string "customer picked up in CS 10/31" for "picked up", I see in the trace window I am getting the full string, I wasn't sure how to display the result of the Instr statement in the code to display in the debug.  Here is my script, if "picked up" is found I want the script to end.

'table pre-write need to make sure boxes are unchecked

If oSession.CompanyCode = "TST" then

If oBusObj.EditState = 2 then

sType = ""
nCustomerNo = ""
cNewHIre = ""
dRushDate = ""
sCCheckBox = ""
sVendorNa = ""
nPOno = ""
sShiptext = ""
searchString = "picked up"

rVal = oBusObj.GetValue("OrderType$", sType)
r=oScript.DebugPrint("OrderType: " & sType)

If sType = "S" then

rVal = oBusObj.GetValue("CustomerNo$", nCustomerNo)
	
	If nCustomerNo <> "2922000" and nCustomerNo <> "2668000" and nCustomerNo <> "2672000" and nCustomerNo <> "1096000" and nCustomerNo <> "0801000" then

	rVal = oBusObj.GetValue("UDF_SHIPPINGMESSAGE$", sShiptext)
	r=oScript.DebugPrint("UDF_SHIPPINGMESSAGE: " & sShiptext)

	If Instr(UCase(sShiptext), UCase(searchString)) > 0 then
	
	rVal = oBusObj.GetValue("UDF_NEWHIRE$", cNewHire)

		If cNewHire = "N" then

		rVal = oBusObj.GetValue("UDF_NEEDDATE$", dRushDate)

			If dRushDate = "" then

			Set oLines = oSession.AsObject(oBusObj.Lines)
			rVal = oLines.MoveFirst()
			Do Until cBool(oLines.EOF) 'Keep looping until record pointer is on last line

			rVal = oLines.GetValue("UDF_CCHECKBOX$", sCCheckBox)
					
				If sCCheckbox = "N" then

				rVal = oLines.GetValue("UDF_VENDOR_NAME$", sVendorNa)
								
					If sVendorNa = "LAPCO MFG. INC." then

						rVal = oLines.SetValue("WarehouseCode$", "009")
						rVal = oLines.SetValue("APDivisionNo$", "00")
						rVal = oLines.SetValue("VendorNo$","0001226")
						rVal = oBusObj.SetValue("UDF_ALLOCATED$","N")
						rVal = oBusObj.SetValue("UDF_DATE_ALLOCATED$","")
						rVal = oBusObj.SetValue("UDF_DATE_PRODUCTION_RECEIVED$","")	
						rVal = oLines.SetValue("UDF_CCHECKBOX$", "Y")
						rVal = oLines.Write()						
						
					End if
				End if
			rVal = oLines.MoveNext()
			Loop
			End if
		End if
	End if
End if
End if
End if
End if