Instaleret hukommelse

Jeg har problemer med at finde størelsen af installeret RAM på den PC hvorpå min applikation afvikles.

jeg bruger følgende kode:

Private TotalPhysicalMemory As Double
Public Sub GetMemoryInfo()
  Dim MemStatus As MEMORYSTATUS
  MemStatus.dwLength = Len(MemStatus)
  GlobalMemoryStatus MemStatus
  TotalPhysicalMemory = MemStatus.dwTotalPhys
End Sub

Koden virker fint, når den afvikles på PC'er med op til 2GB ram, men på PC'er med mere ram er værdien af "TotalPhysicalMemory" stadig kun 2GB ??

Nogen der kan fortælle hvorfor og eventuelt komme med et løsnings forslag