Dim MyFile, MyPath, MyName 
 
Do While Not MyName = ""  
            If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
                          Debug.WriteLine(MyName)
            End If
            MyName = Dir()  
            Dim myArray() As String
            FileTyp = MyName
            If Not FileTyp = "" Then
                FileTyp = Mid$(FileTyp, FileTyp.Length - 3, 4)
                If FileTyp = ".txt" Then
                    Me.CheckedListBox1.Items.Add(MyName, True)
                Else
                End If
            End If
        Loop