¿Como pasar de los binarios del ascii 8-bit a los binarios del ascii 6-bit?

**Por ejemplo, ¿existe o no un vinculo entre H en 8-bit ASCII `0100 1000` y H en 6-bit ASCII `011000`?**


Me refiero al [articulo de Eric S. Raymond][1] que fue editado dos veces recientemente sobre las tablas de conversion entre el ASCII y el binario.Aqui esta como recobrar los 6-bits.pero no el binario:


> To recover the six bits, subtract 48 from the ASCII character value; if the result is greater than 40 subtract 8.

si eso es muy claro para los decimales


    Char ASCII Decimal Bits
    
    "0"  48    0       000000 
    "1"  49    1       000001
    "2"  50    2       000010
    "3"  51    3       000011
     ...

No lo esta para las letras

    "H"  72    24      011000


He hecho el siguiente codigo para recupererar los binaries asociados con los simbolos ascii. **Pero si me da `000001` por 1 en ASCII, que esta acertado, me da `1000101` por la letra `u` en lugar de `111101`**

    Module Module1
    
        Public Function traduction_ASCII(trames As String)

            Dim binario_en_8 As Integer = 0
            Dim dec As Integer = 0
            Dim Remainder As Integer
            Dim result As String = ""
            Dim j As Integer = 0
            Dim tabular_binario(40) As String
    

            'Modificamos los elementos ASCII en binarios'
            For i = 0 To trames.Length - 1
                'Recuperamos el valor numerica del ASCII leido en 8 bits'
                binario_en_8 = Asc(trames.ElementAt(i))
    
                'est esta necesario pero no se porque'
                dec = Val(binaire_en_8)
    
                'la modificamos en su valor ASCII en 6 bits'
                dec = dec - 48
                If dec > 40 Then
                    dec = dec - 8
                End If
    
                While dec > 0
                    remainder = dec Mod 2
                    dec /= 2
                    result = Remainder.ToString & result
                    j = j + 1
                End While
    
                While j < 6    
                    result = "0" & result
                    j = j + 1
                End While

                tableau_binario(i) = result
                result = ""
                j = 0
            Next
    
            Return traduction_binaire_de_ASCII
        End Function
    End Module

El error es que para el programa, `1F / 2 = 8` en lugar de `7`
pero no sé porque divide por esta manera

  [1]: http://catb.org/gpsd/AIVDM.html#_aivdm_aivdo_payload_armoring