Visual Basic - pequeño problema un poco raro

mu guenas a tos, mi problema es q no consiguo asignar un 09 a una variable. La aplicacion se dedica a pasar texto a exadecimal para poder enviarlo por el puerto serie, tienen q ser pares de cifras y en este caso el visual m elimina el cero al quitar el cursor.
n = Mid(texto, k, 1) 'tomo un caracter
If n = "," Then 'lo comparo con una coma
l = 9 <---- Esto deberia de ser 09
Else
l = Asc(n)'si no es coma L toma el valor asci del caracter
End If
m = m & Hex(l) ' y se convierte a exadecimal concatenandolo

Fijate como declaras la variable l si es de tipo String, si es numérica va a truncar el cero. En http://www.elguille.info/vb/utilidades/gsCalc/gCalc.htm tienes varias funciones para convertir números a hexadecimal.