Grab the path of an OLE temp file.

Module1_p2.vb

Function GetOLETempPath(obj As OLEObject) As String
    Dim B() As Byte, Pos&, iEnd&, iStart&, iLength&
    Dim Header As String

    obj.Copy ' (49156 = Native format)
    If Not GetData(49156, B) Then Exit Function
    Dim Buffer$, FileName$, Extension$
    Buffer = StrConv(B, vbUnicode)
    
    Header = Chr$(0) & Chr$(0) & Chr$(3) & Chr$(0)
    Pos = InStr(Buffer, Header)
    ' To do: probably check if we reached EOF
    If Pos Then
        iStart = Pos + 8
        iEnd = InStr(iStart + 1, Buffer, Chr$(0)) + 1 'Inc Null terminator
        'iEnd = iStart + 10
        iLength = iEnd - iStart
    End If
    
    GetOLETempPath = Mid(Buffer, iStart, iLength)
    Debug.Print (GetOLETempPath)
    If Len(Dir(GetOLETempPath)) = 0 Then
        GetOLETempPath = ""
    End If
End Function