Konvetering af strings

Kode 

function calc(data)

	result = round(data,2)


	arrResult = split(result, ",")


	arrLen = Ubound(arrResult)


	if arrLen = 0 then
		result = arrResult(0) & ",00"

	elseif arrResult(1) >= 10 then
		result = arrResult(0) & "," & arrResult(1)

	elseif arrResult(1) < 10 then
		result = arrResult(0) & "," & arrResult(1) & "0"
	
	end if


	calc = result

end function

Nu kender jeg faktisk ikke ASP, men det ser ud til at du laver formatering af pengebeløb, og jeg ved da at der er en indbygget funktion til det: FormatCurrency.