Visual Basic работа с файлами

[yula92]

Здравствуйте! Нужна ваща помощь. Нада чтобы список дирректорий был в алфавитном порядке, первая буква заглавная. А в списке файлов все буквы в имени были маленькими.
Я только записала вывод дисков,дирректорий и каталогов, помогите плз с сортировкой.
Что сюда надо добавить?

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Click()
Dim b As String
Open "*.*" For Input As #1
Do While Not EOF(1)
Line Input #1, b
Print b
Loop
Close #1
End Sub