Prova questa ... 

  Dim dummy1, dummy2 As String * 30
  
  rInfo = GetVolumeInformation("C:\", dummy1, 30, sNumber, maxComp, flags, dummy2, 30)

Ciao ... e fammi sapere!