End If solution -- 2

I need you to add this "end if" code to an existing file (vbscript). Please rewrite this code below and make it work. I need someone to do it right now (preferred). IF COD_FORMA_PGTO (field) from PEDIDO (table) = "8,9,10 or 25" THEN str = Replace(str, "{PAG}", "0") ELSE str = Replace(str, "{PAG}", "1") END IF str = Replace(str, "{PAG}", PAG)