Dim ms As MEMORYSTATUS
ms.dwLength = Len(ms)
GlobalMemoryStatus ms
MsgBox Format$(ms.dwTotalPhys / 1024, "#,##0") & " KB RAM"
MsgBox Format$(ms.dwAvailPhys / 1024, "#,##0") & " KB LEDIGT RAM"