[VB6]: Aggiungere zeri ad un testo e sostituire "." con ","

[gigi90]

Dovresto usare il metodo Format applicato alla classe String oppure ti crei una aposita procedura che preso come parametro il numero fa i dovuti controlli e restituisce la stringa elaborata Es.:

Sub ControllaZeri(ByRef StringNum as String)


'Se la stringa contiene un punto allora...

If StringaNum.Contains(".")=True Then
        StringaNum.Replace(".",",")     'Sostituisce il punto con la virgola
End If

'Se la stringa non contiene ne un punto ne la virgola aggiunge ,00 alla fine
If StringaNum.Contains(",")=False and StringaNum.Contains(".")=False Then
       stringaNum+=",00"
End If

End Sub