Dim fs as Scripting.FileSystemObject
dim drv as drives,dr as drive

Private Sub Command1_Click()
set fs = CreateObject("Scripting.FileSystemObject")
set drv = fs.Drives
for each dr in drv
Combo1.Additem dr.DriveLetter
next
End Sub