De ASCII a Hexadecimal

Hola, tengo el siguiente código para pasar a hexadecimal:

Function PasoAHex(ByVal TramaRecibida As String, ByVal ConvertToHex As Boolean) As String
        PasoAHex = ""
        For Each c As Char In TramaRecibida
            PasoAHex &= Hex(Asc(c))
        Next
        Return PasoAHex
    End Function

El caso es que cuando el valor en hexadecimal debería ser 01 o 06 (por poner dos ejemplos), me sale 1 o 6. Me interesaría que también me saliera el 0, como lo pedo hacer?

gracias y buen verano!!!