Мы попробуем получить серийные номера дисков. Помещаем на форму элемент управления List и пишем код.

Private Sub Form_Load()
On Error Resume Next
Dim fs As New FileSystemObject
Set dc = fs.Drives
For Each d In dc
    List1.AddItem (d.SerialNumber)
Next
End Sub

Обратите внимание на обработку ошибок. Это связано с тем, что мы перебираем все диски в том числе и дисководы в котором может отсутствовать дискета. Запускаем смотрим.