Access - Función para quitar el 0 en una consulta

Hola!!!! Tengo un campo de texto que quiero ordenar ascendentemete ORDER BY ASC y lo tengo puesto de la siguiente manera:
01
01
01-02
01-02-03
02
02
02-03
03
04
.....
10-11
11
12-13
...
20
21
....
80-81
82
82bis
...
90
Hay alguna manera, para decirle a la consulta que me los muestre sin el 0 delante?
1
1
1-2
1-2-3
2
2
.......

Gracias!!

Create esta función

Function QuitaCeros(Campo As String) As String
Dim Areatra As String
Areatra = ""
For i = 1 To 14 ' AQUI PON LA LONGITUD QUE TENGA EL CAMPO TEXTO
If Mid(Campo, i, 1) <> "0" Then
Areatra = Areatra + Mid(Campo, i, 1)
End If
Next i
QuitaCeros = Areatra
End Function

En la consulta la invocas asi
camposinceros:QuitaCeros([TuCampode texto])

Saludos para todos y si te vale pon un mensaje (HILO CERRADO) asi sabremos que te ha valido y puede servirle a otrs.