Code:
Option Explicit

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

Private Sub Main()
  Dim T As MEMORYSTATUS
  Call GlobalMemoryStatus(T)
  
  Dim str_Data As String
  str_Data = "Length: " & vbTab & vbTab & T.dwLength & vbCrLf & _
            "MemoryLoad: " & vbTab & T.dwMemoryLoad & vbCrLf & _
            "TotalPhys: " & vbTab & T.dwTotalPhys & vbCrLf & _
            "AvailPhys: " & vbTab & T.dwAvailPhys & vbCrLf & _
            "TotalPageFile: " & vbTab & T.dwTotalPageFile & vbCrLf & _
            "AvailPageFile: " & vbTab & T.dwAvailPageFile & vbCrLf & _
            "TotalVirtual: " & vbTab & T.dwTotalVirtual & vbCrLf & _
            "AvailVirtual: " & vbTab & T.dwAvailVirtual
  MsgBox str_Data
End Sub