Prova con questa funzione l'ho creata in un paio di minuti, ma dovrebbe funzionare:

Function fNumero(strPrz)
Dim segno, decimali, newPrz, p
segno=""
If Not InStr(strPrz,"-")=0 Then
segno="-"
strPrz=Mid(strPrz,2)
End If
If Not InStr(strPrz,",")=0 Then
decimali="," & Mid(strPrz,(InStr(strPrz,",")+1))
strPrz=Left(strPrz,(InStr(strPrz,",")-1))
End If
newPrz=""
For p=Len(strPrz) to 1 step -1
newPrz=newPrz & Mid(strPrz,p,1)
Next
p=4
strPrz=""
Do While p <= Len(newPrz)+1
strPrz=strPrz & Mid(newPrz,p-3,3) & "."
p=p+3
Loop
p=p-3
strPrz=strPrz & Mid(newPrz,p,Len(newPrz)-(p-1))
newPrz=""
For p=Len(strPrz) to 1 step -1
newPrz=newPrz & Mid(strPrz,p,1)
Next
strPrz=newPrz
If Mid(strPrz,1,1) = "." Then
strPrz=Mid(strPrz,2,Len(strPrz)-1)
End If

fNumero=segno & strPrz & decimali
End Function

---

Modificato da ASPReader78 il 03 ottobre 2002 16.49 -