MapViewOfFile出错，GetLastError返回8

如题，代码如下：
private const FileSize=1024&*1024*1024
 Function Create(strName As String) As Boolean
    Dim e As Long
  
    h = CreateFileMapping(-1, ByVal pNull, PAGE_READWRITE, _
                          0, FileSize, strName)

    If h = 0 Then
        Create = False
        Exit Function
    End If '当然对CreateFileMapping这API，我们可以认为返回0才是错误。
    p = MapViewOfFile(h, FILE_MAP_WRITE, 0, 0, 0)
    Debug.Print GetLastError
    If p = pNull Then
        CloseHandle h   '一定要注意
        Create = False
        Exit Function
    End If
    Create = True
End Function
如果把FileSize改为1024*1024*200不会出错。
我的内存还有1G多可用，为什么会出现存储空间不足的错误呢？