Aggiungere 0 davanti a un numero ( VB6)

[gaullo]

Ciao raga ho un problema:
Devo visualizzare un id in un elenco..
Per fare una cosa carina pensavo (essendo l'id al massimo di 2 cifre)
di inserire uno 0 nel caso fosse di una (1--9)

ecco come faccio:

cont = 0
Linea.Recordset.MoveFirst
Do While Not Linea.Recordset.EOF
If Linea.Recordset("idsede") = var Then
cont = cont + 1
x = 2 - Len(cont)
List6.AddItem (String(x, "0") & cont & " -- " & Linea.Recordset
("numero"))
End If
Linea.Recordset.MoveNext
Loop

Purtroppo o notato che se cont è un numero a una sola cifra, len mi dice che ne ha 2
Sapete il motivo???
Come posso fare (senza un controllo da 1 a 9)
grazie ciao

[Grunt]

Nel momento in cui un numero viene interpretato come stringa VB aggiunge degli spazi laterali. Sostituisci così

x = 2 - Len(cont) 
.....
con
x = 2 - Len(trim(cont))

[gaullo]

Grazie mille, non ci avevo propio pensato!!!:quote: