Binary til tekst og omvendt!

Hmm, når jeg prøver, så kommer den frem med andre tal end 1 og 0!

-7201001000-10101100101-
Kom den med!

Kode 

Public Function binaer(Tekst)
    Dim I As Integer, tilbage As String
    I = 1
    Do While I <= Len(Tekst)
        Dim tegn As String, tegnKode As Integer, binaerTekst As String, I2 As Integer
        binaerTekst = ""
        tegn = Right(Left(Tekst, I), 1)
        tegnKode = Asc(tegn)
        I2 = 8
        Do While I2 > 0
            If tegnKode >= 2 ^ (I2 - 1) Then
                binaerTekst = binaerTekst & "1"
                tegnKode = tegnKode - 2 ^ (I2 - 1)
            Else
                binaerTekst = binaerTekst & "0"
            End If
            I2 = I2 - 1
        Loop
        tilbage = tilbage & binaerTekst
        I = I + 1
    Loop
    binaer = tilbage
End Function

Kode 

Public Function binaer(Tekst)
    Dim I As Integer, tilbage As String
    I = 1
    Do While I <= Len(Tekst)
        Dim tegn As String, tegnKode As Integer, binaerTekst As String, I2 As Integer
        binaerTekst = ""
        tegn = Right(Left(Tekst, I), 1)
        tegnKode = Asc(tegn)
        'tilbage = tilbage & "-" & tegnKode
        I2 = 8
        Do While I2 > 0
            If tegnKode >= 2 ^ (I2 - 1) Then
                binaerTekst = binaerTekst & "1"
                tegnKode = tegnKode - 2 ^ (I2 - 1)
            Else
                binaerTekst = binaerTekst & "0"
            End If
            I2 = I2 - 1
        Loop
        tilbage = tilbage & binaerTekst
        I = I + 1
    Loop
    binaer = tilbage
End Function

- og hvordan virker koden så?
Hvad skal jeg gøre med den ( udover at indsætte den )