Dim strTemp As String

strTemp = Space(10 * 1024 *1024)

Dim strTemp as String
strTemp = Space(100 * 1024 * 1024)
strTemp = ""

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MemState)
Private Type MemState
        lngLength As Long
        lngMemoryLoad As Long
        lngTotalPhys As Long
        lngAvailPhys As Long
        lngTotalPageFile As Long
        lngAvailPageFile As Long
        lngTotalVirtual As Long
        lngAvailVirtual As Long
End Type