Erro boleto.

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'formatcurrency'

/lojavirtual/pagamento_boleto_caixa.asp, line 119

Código :

Function x16(x15, x36, x94)Dim x87, x69, x45x45 = x36 + 1x87 = ""DoIf IsNumeric(Mid(x15, (x45), 1)) Thenx87 = x87 & Mid(x15, (x45), 1)x45 = x45 + 1End IfLoop While IsNumeric(Mid(x15, (x45), 1))For x69 = 1 To x87x94 = x94 & (x91(53)) '------------------------------- aqui fica o erro o que devo fazer?Nextx36 = x36 + 2x16 = x94End FunctionFunction x23(x15)