Private Declare Function StgCreateDocFile Lib "Ole32.dll" Alias _
         "StgCreateDocfile" (ByVal pwcsName As Long, _
         ByVal grfMode As Long, ByVal reserved As Long, _
         ppstgOpen As Long) As Long
 
Private Const STGM_COLLECTION = &H2000&
Private Const STGM_CONVERT = &H20000
Private Const STGM_CREATE = &H1000&
Private Const STGM_DELETEONRELEASE = &H4000000
Private Const STGM_DIRECT = &H0&
Private Const STGM_DIRECT_SWMR = &H400000
Private Const STGM_FAILIFTHERE = &H0&
Private Const STGM_NOSCRATCH = &H100000
Private Const STGM_NOSNAPSHOT = &H200000
Private Const STGM_OPEN = &H80000000
Private Const STGM_OUTPUT = &H8000&
Private Const STGM_PRIORITY = &H40000
Private Const STGM_READ = &H0&
Private Const STGM_READWRITE = &H2&
Private Const STGM_RECURSIVE = &H1000000
Private Const STGM_SHARE_DENY_NONE = &H40&
Private Const STGM_SHARE_DENY_READ = &H30&
Private Const STGM_SHARE_DENY_WRITE = &H20&
Private Const STGM_SHARE_EXCLUSIVE = &H10&
Private Const STGM_SIMPLE = &H8000000
Private Const STGM_STRICTOPEN = &H40000000
Private Const STGM_TRANSACTED = &H10000
Private Const STGM_WRITE = &H1&
Private Const S_OK = &H0&
 
Private Sub Form_Load()
   Dim sFName As String
   Dim nFlags As Long
   Dim rVal As Long
   Dim pUnkIStorage As Long
   Dim vTable As Variant
 
   sFName = "C:\DLL\VBStorage" & Chr(0)
   nFlags = STGM_CREATE Or STGM_READWRITE Or STGM_SHARE_EXCLUSIVE
 
   rVal = StgCreateDocFile(StrPtr(sFName), nFlags, 0&, VarPtr(pUnkIStorage))
 
   If rVal = S_OK Then
       MsgBox Hex(pUnkIStorage) 'Address Pointer IStorage-Interface
                                                          ' *pUnkIStorage -> 
                                                          ' vTable->QueryInt
                                                          ' erface
   End If
 
End Sub