Get size of everything in clipboard

See more:

VB

Hello

First, I'm beginner in this field and I understand basics but mostly my coding is related with searching, grabbing and combining code from various sources...more complicated way but this is my learning curve :-)
So, I want to get size (Kb, Mb, Double...does not matter) of everything what is in clipboard and for now I managed to do this with this code:

Public Function GetSizeKB(ByVal filename As String) As Double
        Dim info As New IO.FileInfo(filename)
        Return info.Length / 1000
End Function

Public Sub MAX()
        Try
            Dim ArList As New ArrayList
            If Clipboard.ContainsFileDropList() Then
                Dim FileList As System.Collections.Specialized.StringCollection = Clipboard.GetFileDropList()
                For Each FileName As String In FileList
                    ArList.Add(GetSizeKB(FileName))
                Next FileName
                MsgBox(ArList.Cast(Of Double).Sum())
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
End Sub

Problem here is that this works only if I copy single files to clipboard. If I copy a Folder that maybe contains another subfolder with files then this does not work.
So how can I achieve this using this code or is there any simpler solution?

Thanks
Best regards