続きのコードを掲載します。

 ''' <summary>
    ''' 文字列リストをバイト配列リストに変換する。
    ''' </summary>
    ''' <param name="str"></param>
    ''' <returns>バイト配列リスト</returns>
    ''' <remarks></remarks>
    Private Function ChangeShift_JisEncoding(ByVal str As String()) As List(Of Byte())
        Dim data As New List(Of Byte())
        Dim bytedata As Byte()
        Try
            For Each dat As String In str
                bytedata = System.Text.Encoding.GetEncoding("Shift_jis").GetBytes(dat)
                data.Add(bytedata)
            Next
        Catch ex As Exception
            Log(ex, "CustomerSearchFormClass->ChangeShift_JisEncoding()")
        End Try
        Return data
    End Function

    ''' <summary>
    ''' バイト配列リストをShift_Jis文字列リストに変換する。
    ''' </summary>
    ''' <param name="bytedata"></param>
    ''' <returns>Shift_Jis文字列リスト</returns>
    ''' <remarks></remarks>
    Private Function ChangeShift_JisString(ByVal bytedata As List(Of Byte())) As List(Of String)
        Dim data As New List(Of String)
        Dim tmp As String
        Try
            For Each dat As Byte() In bytedata
                tmp = System.Text.Encoding.GetEncoding("Shift_jis").GetString(dat)
                data.Add(tmp)
            Next
        Catch ex As Exception
            Log(ex, "CustomerSearchFormClass->ChangeShift_JisString()")
        End Try
        Return data
    End Function


    Private Function GetByteCount(ByVal str As String()) As List(Of Integer)
        Dim data As New List(Of Integer)
        Dim count As Integer
        Try
            For Each dat As String In str
                count = System.Text.Encoding.GetEncoding("Shift_jis").GetByteCount(dat)
                data.Add(count)
            Next
        Catch ex As Exception
            Log(ex, "CustomerSearchFormClass->ChangeShift_JisEncoding()")
        End Try
        Return data
    End Function