Common dialog - multiple files from common dialog

Private Sub cmdOpen_Click()
    Dim sFileNames() As String
    Dim iCount As Integer

   cd.Filter = "All Files|*.*"
   cd.Flags = cdlOFNAllowMultiselect
   cd.ShowOpen

    If cd.FileName <> "" Then
       sFileNames = Split(cd.FileName, Chr (32))
        For iCount = Lbound (sFileNames) To Ubound (sFileNames)
           MsgBox sFileNames(iCount), vbInformation
        Next

    End If
End Sub