Collect List of Files and Folders from Directory (Module)

Imports System
Imports System.IO


Module ListOfCollectionMod
    Function MyDirectory()
        Dim MyDir As String = MainForm.txtDirectoryCollectionofFiles.Text
        Return MyDir
    End Function

    Public Sub ListOfFolders()
        For Each Dir As String In Directory.GetDirectories(MyDirectory)
            MainForm.txtListOfFiles.Text += (Dir) + vbNewLine
        Next
    End Sub

    Public Sub ListOfCollection()
        For Each foundFile As String In My.Computer.FileSystem.GetFiles(MyDirectory)
            MainForm.txtListOfFiles.Text += foundFile + vbNewLine
        Next
    End Sub

    Public Sub ListFileDir()
        ListOfFolders()
        ListOfCollection()
    End Sub

End Module