Rappresentare in formato stringa un numero avente i punti delle migliaia e la virgola dei decimali

Pappresentare in formato stringa un numero avente i punti delle migliaia e la virgola dei decimali, si potrà far riferimento al seguente codice:

Public Sub Main()

 Dim f As Float
 Dim s As String

  f = 25691972.06   ' Numero da rappresentare

  s = Trim(Format(f, "###,###,###,###,#.###"))

  Print s

End