System IO VB.Net by API

Option Strict On
Public Module modErr
   Public Sub Main()
    Dim filename As String
    filename = Dir("*.*", FileAttribute.Normal)
    Do While Not filename = String.Empty
       Console.WriteLine(filename)
       filename = Dir()
    Loop
   End Sub
End Module