codice:
'Dato num intero x, restituisce la stringa associata
'anteponendo tanti zero fino ad arrivare alla lunghezza num
Function putZero(ByVal x As Integer, ByVal num As Integer) As String

  putZero$ = Trim$(Str$(x))
  While Len(putZero$) < num
      putZero$ = "0" & putZero$
  Wend
End Function
ciao
Sara.