Common Dialog Control выбор нескольких файлов не работает

Option Explicit
 
Private Function GetFiles(List As String) As String()
    Dim i As Long, p As Long, o As Long, ret() As String
    i = InStr(1, List, vbNullChar)
    Do While i
        ReDim Preserve ret(p)
        ret(p) = Mid$(List, o + 1, i - o - 1)
        o = i: i = InStr(i + 1, List, vbNullChar): p = p + 1
    Loop
    ReDim Preserve ret(p): ret(p) = Mid$(List, o + 1)
    GetFiles = ret
End Function
' Проверка
Private Sub Command1_Click()
    Dim ret() As String, i As Long
    With CommonDialog1
        .MaxFileSize = 2048   ' Set as appropriate
        .FileName = ""
        .Filter = "All Files|*.*"
        .Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
        .ShowOpen
        ret = GetFiles(.FileName)
        For i = 0 To UBound(ret)
            Debug.Print ret(i)
        Next
    End With
End Sub

Private Sub CommandButton1_Click()
     Dim ret() As String, i As Long, TestTxt As String
     
     With Me.CommonDialog1
        .MaxFileSize = 2048   ' Set as appropriate
        .Filename = ""
        .Filter = "All Files|*.*"
        .Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
        .ShowOpen
        
        TestTxt = .Filename
        MsgBox (.Filename)
        
        ret = GetFiles(.Filename)
        For i = 0 To UBound(ret)
            MsgBox ret(i)
        Next
    End With
End Sub

Option Explicit
 
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" (lpString As Any) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyW" (lpString1 As Any, lpString2 As Any) As Long
Private Declare Function GetMem4 Lib "msvbvm60" (Src As Any, Dst As Any) As Long
 
Private Function GetFiles(Name As String) As String()
    Dim ret() As String, p As Long, i As Long, l As Long, ln As Long, a As Long
    ' Ставим указатель на начало строки
    p = StrPtr(Name)
    ' Проверяем длину всей строки
    GetMem4 ByVal p - 4, ln
    l = lstrlen(ByVal p)
    Do
        ReDim Preserve ret(a)
        ret(a) = Space(l)
        ' Копируем строку
        lstrcpy ByVal StrPtr(ret(a)), ByVal p + i
        ' т.к. я использую кодирование unicode то символ занимает 2 байта
        i = i + (l + 1) * 2
        ' если вышли за пределы строки
        If i > ln Then Exit Do
        a = a + 1
        ' Проверяем длину
        l = lstrlen(ByVal p + i)
    Loop
End Function