Listing Files in Dictionary

 Private Sub ListFilesInDictionay(ByVal sStartDir As String, ByRef MyDict As Dictionary(Of Integer, String))
        Dim OutDir As DirectoryInfo = New DirectoryInfo(sStartDir)
        If OutDir.Exists Then
            Dim MyFileNum As Integer = 1
            For Each OurFile As FileInfo In OutDir.GetFiles
                MyDict.Add(MyFileNum, OurFile.Name)
                MyFileNum += 1
            Next
        End If
    End Sub