'Define the datatype TagloggerFile, used by some of the DLL-functions
Public Type TagloggerFile
  filename(1 To 13) As Byte
  filelength As Long
End Type



Declare Function Logger_FileUpload Lib "Taglogger.dll" (ByRef filename As TagloggerFile, ByVal data As String) As Long


 Dim file As TagloggerFile
  Dim data As String * 50000
  Dim filename As String
  Dim k As Integer
  Dim filedata As String
  Dim status As Long
    
    
  'Name and contents of the file to be uploaded to the Taglogger
  filename = "dlltest1.txt"
  filedata = "This is a test of the Logger_FileUpload function."
  
  
  'Convert string to array of bytes padded with nullbytes
  For k = 1 To 13
    If k <= Len(filename) Then
      file.filename(k) = Asc(Mid(filename, k, 1))
     Else
      file.filename(k) = 0
    End If
  Next
  
  file.filelength = Len(filedata)
  data = filedata
  
  status = Logger_FileUpload(file, data)