Trying to search the 3 address line fields for a key word to populate the ShipToCode and the ShipVia field.  Can I do this in one script or do I have to create a script for each search field?  This is what I got so far.

rVal = 0

sAddress = ""

sAddressa = ""

sAddressb = ""

searchString = "Terminal"



rVal = oBusObj.GetValue("ShipToAddress1$", sAddress)

rVal = oBusObj.GetValue("ShipToAddress2$", sAddressa)

rVal = oBusObj.GetValue("ShipToAddress3$", sAddressb)



If InStr(UCase(sAddress), UCase(searchString)) > 0 Or

	If InStr(UCase(sAddressa), UCase(searchString)) > 0 Or

		If InStr(UCase(sAddressb), UCase(searchString)) > 0 then

			rVal = oBusObj.SetValue(ShipToCode$, "GM")

			rVal = oBusObj.SetValue(ShipVia$, "SHIPHOLD")

		End If

	End If

End If