koks i krypteringkode ved dekryptering

Jeg har fået  et problem... er ved at lave et "krypteringsprogram" og bruger følgende kode til at kryptere med:

indtast = InputBox("Intast dit password!" & Chr$(13) & "Der er forskel på STORE og små bogstaver", "Password!")
   
    personligtpassword = indtast + "htyu4l0AS3"
   
        tekst = ""
            For i = 1 To Len(txtInput.Text)
                t = Mid(txtInput.Text, i, 1)
                f = (i - 1) Mod Len(personligtpassword) + 1
                k = Mid(personligtpassword, f, 1)
                nr = Asc(t) + Asc(k)
                If nr > 255 Then nr = nr Mod 255
                t = Chr(nr)
                tekst = tekst & t
            Next i
        txtInput.Text = tekst


Det går også helt fint indtil jeg prøve at "afkryptere" med denne kode:

indtast = InputBox("Intast det password du brugte da du krypterede filen!" & Chr$(13) &  "Der er forskel på STORE og små bogstaver", "Password!")

    personligtpassword = indtast + "htyu4l0AS3"
        tekst = ""
            For i = 1 To Len(txtInput.Text)
                t = Mid(txtInput.Text, i, 1)
                f = (i - 1) Mod Len(personligtpassword) + 1
                k = Mid(personligtpassword, f, 1)
                nr = Asc(t) - Asc(k)
                If nr < 255 Then nr = nr Mod 255
                t = Chr(nr)
                tekst = tekst & t
            Next i
        txtInput.Text = tekst


Forskellen på de to koder er 8 og 9.
I linie 8 er '+' blevet til '-'
I linie 9 er '>' blevet til '<'.


Når jeg skal afkryptere går da også godt nok "(næsten)" altid. Men ligepludselig kommer den med fejl fordi 'nr' i linie 10 er blevet et negativt tal.

Er der nogen der kan se en løsning på det problem?