Visual Basic - URGE, liberar memoria de alguna manera

tengo un programita que consume mucho proceso, puedo ir liberando procesador mas rapido, a medida que voy desocupando variables??? con alguna api quisas?????

Con este codigo liberas toda la memoria disponible

Solo ocupas un Boton

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 Command1_Click()
Dim MemDat As MemoryStatus
Dim Tmp As String

Screen.MousePointer = vbHourglass

MemDat.dwLength = Len(MemDat)
GlobalMemoryStatus MemDat

Tmp = String(CLng(CLng(MemDat.dwTotalPhys) / CLng(2)), " ")
Tmp = vbNullChar

Screen.MousePointer = vbNormal
End Sub

sabes, entendi la idea pero el programa se cae en esta linea

Tmp = String(CLng(CLng(MemDat.dwTotalPhys) / CLng(2)), " ")

el string se desborda, el numero que calcula la funcion es el que hace el desborde