Converter valor em Moeda com 2 casas decimais

O codigo abaixo converte um valor numerico em formato de moeda, separado por ponto
Ex.:
00,000 -> 00.00
0000 -> 0000.00
0,0 -> 0.00

<%
function convet(x)
dim pos, str, valor, decimal
pos = 0
str = ""
valor = ""
decimal = ""

 for n = 1 to len(x)
  str = mid(x, n, 1)
  if str = "," or str = "." then
   pos = n
   if n = 1 then
    valor = "0"
    decimal = mid(x, n + 1, len(x))
   else
    valor = mid(x, 1, n - 1)
    decimal = mid(x, n + 1, len(x))
   end if
  end if
 next

 if pos = 0 then
  valor = x
 end if

 valor = valor & "." & left(decimal & "00",2)
 response.write valor

end function

%>

Esta matéria foi postada originalmente no ASP4Developers por Danilo Freitas (site), que na época era "Desenvolvo páginas há dois anos, programador ASP (ha pouco tempo) e fanático em tecnologia de banco de dados". Hoje, vai saber...