VB.NET 图片转BASE64结果生成EXCEL

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Xml
Imports Microsoft.Office.Interop
Imports System.IO.Path
Imports System.Timers

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim dlg As OpenFileDialog = New OpenFileDialog()

        Dim f As Long



        Dim xml_i As Integer

        dlg.Multiselect = True

        dlg.Title = "选择要转换的图片"

        dlg.Filter = "Image files (*.jpg,*.bmp,*.gif,*.png)|*.jpg;*.jpeg;*.gif;*.bmp|AllFiles (*.*)|*.*"



        Dim base64string As String

        Dim myexcel As New Excel.Application()

        myexcel.Visible = False

        myexcel.Workbooks.Add()

        Dim list As New List(Of String)


        If DialogResult.OK = dlg.ShowDialog() Then

            For i As Integer = 0 To dlg.FileNames.Length - 1

                'MessageBox.Show(GetDirectoryName(dlg.FileName()))

                Dim file_info As FileInfo = New FileInfo(dlg.FileNames(i))

                f = file_info.