Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
 
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Dim lpInfoPuffer As MEMORYSTATUS

Dim ram As Long
lpInfoPuffer.dwLength = Len(lpInfoPuffer)
GlobalMemoryStatus lpInfoPuffer
ram = CInt(lpInfoPuffer.dwTotalPhys / 1024 / 1024)