Editing Tax Amount using BOI

hello 

i am trying to override tax of a sales order ,, i have used the following code

*************************************************************************************************************************

Public Function sales_details()
dim xx as String=""
billobj.nGetNextSalesOrderNo(xx)
billobj.nSetKeyValue("SalesOrderNo$", xx)
If Not (CBool(billobj.nSetKey())) Then MsgBox(billobj .sLastErrorMsg)
If Not (CBool(billobj.nSetValue("ARDivisionNo$", "01"))) Then MsgBox(billobj .sLastErrorMsg)
If Not (CBool(billobj.nSetValue("CustomerNo$", "ABF"))) Then MsgBox(billobj .sLastErrorMsg)
If Not (CBool(billobj.nSetValue("TaxableAmt", "100"))) Then MsgBox(billobj .sLastErrorMsg)
billobj.oLines.nAddLine()
billobj.oLines.nSetValue("ItemCode$", "6655")
billobj.oLines.nSetValue("QuantityOrdere", 3)
billobj.oLines.nWrite()
billobj.nWrite()
end function

*************************************************************************************************

and i am getting a error