Sub f2()
    Dim hExportFile As Long
    Dim nWritten As Long
    Dim LastDllError As Long
    Dim nret As Long
    
    Dim stringToWrite As String
    stringToWrite = "stringToWrite"
    
    hExportFile = CreateFile("D:\temp\export.txt" _
        , GENERIC_WRITE _
        , 0 _
        , 0 _
        , OPEN_ALWAYS _
        , FILE_ATTRIBUTE_NORMAL _
        , 0 _
    )
    
    nret = WriteFile(hExportFile, ByVal stringToWrite, Len(stringToWrite), nWritten, 0)
    LastDllError = Err.LastDllError
    MsgBox LastDllError
    MsgBox "nret: " & nret
    CloseHandle hExportFile
End Sub

Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Long) As Long

Public Const GENERIC_WRITE = &H40000000
Public Const OPEN_ALWAYS = 4
Public Const FILE_ATTRIBUTE_NORMAL = &H80

Sub f2()
    Dim hExportFile As Long
    Dim nWritten As Long
    Dim LastDllError As Long
    
    Dim stringToWrite As String
    Dim lenToWrite As Long
    
    stringToWrite = "stringToWrite"
    'Const stringToWrite As String = "stringToWrite"
    lenToWrite = Len(stringToWrite)
    
    
    Const strPathFile As String = "D:\temp\export.txt"
    
    hExportFile = CreateFile(strPathFile _
        , GENERIC_WRITE _
        , 0 _
        , 0 _
        , OPEN_ALWAYS _
        , FILE_ATTRIBUTE_NORMAL _
        , 0 _
    )
    
    nWritten = 10
    WriteFile hExportFile, ByVal stringToWrite, lenToWrite, nWritten, 0
    LastDllError = Err.LastDllError
    MsgBox LastDllError
    CloseHandle hExportFile
End Sub