Dim counter As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = _
        My.Computer.FileSystem.GetFiles("C:\TestDir")
 
MsgBox("number of files is " & CStr(counter.Count))
 
'Alternativ
Dim filelist As List(Of String) = _
    My.Computer.FileSystem.GetFiles("C:\TestDir").ToList