Public Class Form1
    Dim SrcString As String
    Dim Password As String
    Dim TmpInt As Integer, I, J
    Dim TmpArray() As Integer
 
 
 
    Private Sub VerEntschlüsseln_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles VerEntschlüsseln.Click
 
        ReDim TmpArray(0 To Len(pass))
 
        SrcString = Texten.Text
        Password = pass.Text
 
        For I = 1 To Len(Password)
            TmpArray(I) = Asc(Mid$(Password, I, 1))
        Next I
 
        For I = 1 To Len(SrcString)
            TmpInt = Asc(Mid$(SrcString, I, 1))
            For J = 1 To Len(Password)
                TmpInt = TmpInt Xor TmpArray(J)
                TmpInt = TmpInt Xor J
            Next J
            If TmpInt > 0 Then
                VerEntschlüsseln = VerEntschlüsseln & Chr$(TmpInt)
            Else
 
                VerEntschlüsseln = VerEntschlüsseln & "%$0$%"
            End If
        Next I
 
        result.Text = TmpInt
    End Sub
 
End Class

For I = 1 To Len(SrcString) /code] steht "Der Typ für die Variable "I" wird" & _
  "nicht abgeleitet, da er an ein Feld in einem einschließenden Bereich" & _
  "gebunden ist. Ändern Sie den Namen von "I", oder verwenden Sie den" & _
  "vollqualifizierten Namen (z.B. "Me.I" oder "MyBase.I")"
 
 
Und hier <pre><code> VerEntschlüsseln = VerEntschlüsseln & Chr$(TmpInt)