ti posto il codice corretto nel caso in cui scrivi i decimali con il punto anzichè con la virgola:

codice:
Private Sub Text1_LostFocus()
   if text1.text <> "" then
      text1.text = replace(Text1.text,".",",")
      text1.text = format(Text1.text,"#,#0.#0")
   end if
End Sub