空き領域は、DriveInfo クラスの AvailableFreeSpace プロパティで得られます。

たとえば C ドライブの合計容量であれば、このように書けます。

Dim c As New System.IO.DriveInfo("C")

MsgBox(c.AvailableFreeSpace)  '空き領域のうち、ユーザーが使用可能な領域 

MsgBox(c.TotalFreeSpace)       '空き領域の合計 

MsgBox(c.TotalSize)            'ディスクの総容量 

全ての HDD の合計を知りたい場合には、My.Computer.FileSystem.Drives を併用すると良いでしょう。

Dim total As Long

total = Aggregate drv In My.Computer.FileSystem.Drives _

        Where drv.DriveType = DriveType.Fixed _

        Into Sum(drv.AvailableFreeSpace)

MsgBox(total.ToString("#,0' Bytes'"))