全ての 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'"))
 
↑の五行目に書いてあります。