Declare Sub GlobalMemoryStatus Lib "kernel32.dll" _ (lpBuffer As MEMORYSTATUS)
GlobalMemoryStatus получает информацию о текущем состоянии памяти компьютера. Функция корректно работает с объемом памяти, не превышающим 4 Гб. В противном случае, вместо реального объема функция сообщит об объеме памяти по модулю 4 (если установлено 6 Гб, то вы увидите только2 Гб). Для Windows 2000 и выше можно использовать расширенную версию функции GlobalMemoryStatusEx, способную работать с большой памятью
GlobalMemoryStatus не возвращает значений.
' Определяем количество общей и доступной памяти Dim ms As MEMORYSTATUS GlobalMemoryStatus ms ' Общая и доступная память в кб Debug.Print "Общий объем:"; ms.dwTotalPhys \ 1024; "кб" Debug.Print "Доступно:"; ms.dwAvailPhys \ 1024; "кб"