VirtualFree возвращает ERROR_INVALID_PARAMETER - VB

Option Explicit
 
Private Declare Function VirtualAlloc Lib "kernel32" (ByVal Address As Long, ByVal dwSize As Long, ByVal AllocationType As Long, ByVal Protect As Long) As Long
Private Declare Function VirtualFree Lib "kernel32" (lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
 
Private Const PAGE_READWRITE                As Long = &H4
Private Const MEM_RELEASE                   As Long = &H8000
Private Const MEM_COMMIT                    As Long = &H1000

Private Sub Form_Load()
    Dim lPo             As Long
    Dim OutSize         As Long
    Dim Result          As Long
 
    OutSize = 16384
 
    lPo = VirtualAlloc(ByVal 0&, OutSize, MEM_COMMIT, PAGE_READWRITE)
         
    Result = VirtualFree(ByVal lPo, 0&, MEM_RELEASE)
    
    Debug.Print Err.LastDllError
    
End Sub