Snippet: 1.000.000

I know that my english can be better. Please rate my work and not my lack in linguistic skills!

If you find any kind of ownership issue, or you think some content is your property. Please be so kind and contact me, i will remove or solve it ASAP.

You like my free Uploads and want to support me, than please donate here:

Dim ResPayout As String

If Strings.Len(ResPayout) > 4 Then '1.000

ResPayout = Strings.Left(ResPayout, Strings.Len(ResPayout) - 3) & "." & Strings.Right(ResPayout, 3)

If Strings.Len(ResPayout) > 7 Then '1.000.000

ResPayout = Strings.Left(ResPayout, Strings.Len(ResPayout) - 7) & "." & Strings.Right(ResPayout, 7)

If Strings.Len(ResPayout) > 11 Then '1.000.000.000

ResPayout = Strings.Left(ResPayout, Strings.Len(ResPayout) - 11) & "." & Strings.Right(ResPayout, 11)

End If