Dim Drives() As DriveInfo = DriveInfo.GetDrives()
Dim Builder As New System.Text.StringBuilder

Dim Info As DriveInfo
For Each Info In Drives
[...]