[VB.NET] Funzione Len() e problemi nell'utilizzo

[andreaggg]

Ho un problema: ho creato una funzione che dandogli in un numero mi restituisce sembre un numero a tre cifre anche se il primo è a una o due antecedendogli degli 0.

Private Function adattamentoNumero(ByVal numero As Integer) As Integer
        Dim risultato As Integer = esito.negativo
        If Len(numero) = 1 Then
            risultato = CInt("00" & CStr(numero))
        ElseIf Len(numero) = 2 Then
            risultato = CInt("0" & CStr(numero))
        ElseIf Len(numero) = 3 Then
            risultato = numero
        Else
            risultato = esito.negativo
        End If
        Return risultato
    End Function 

Come numero gli do

Asc(Var) 

dove Var è una variabile di tipo Char

Il mio prioblema è che il Len mi restituisce 2 se la applico alla variabile Var, ma mi restituisce 4 nella funzione appicata alla varibile numero.

Perchè?