[VB6] Generare un codice numerico

[Stefano1984Mn]

ok ho fatto grazie per il consiglio

Se qualcuno vuole la soluzione la scrivo di seguito

Function subCodice(a As Integer) As String
Dim c As String

c = Format(a, "00000")

subCodice = c

End Function


ciao a tutti