Help with changing some code

[kanejone]

Hi guys
I'm trying to change the following code to suit my needs and was wondering could someone help.
Instead of getting the size of just one file I want to set up an array and get the size of a range of files. Then I want to compare this with another array. Does ayone know how to do this.

Thanks
JK

'code by Sam Hugill from VBSquare
Function FileSize(File As String) As String
Dim LSize As String
If File = "" Then
FileSize = ""
Exit Function
End If
LSize = FileLen(File)
FileSize = LSize 'Size in bytes
End Function

Private Sub Command1_Click()
MsgBox FileSize("c:\windows\explorer.exe")
End Sub