Dim strTempPath As String
  Dim strTempFile As String
 
    strTempPath = String(100, Chr$(0))
    'Get the temporary path
    GetTempPath 100, strTempPath
    'strip the rest of the buffer
    strTempPath = Left$(strTempPath, InStr(strTempPath, Chr$(0)) - 1)
 
    'Create a buffer
    strTempFile = String(260, 0)
    'Get a temporary filename
    GetTempFileName strTempPath, "SK~", 0, strTempFile
    'Remove all the unnecessary chr$(0)'s
    strTempFile = Left$(strTempFile, InStr(1, strTempFile, Chr$(0)) - 1)
    DeleteFile (strTempFile)
 
    strTempFile = strTempFile & ".pdf"
    lngResult = CopyFile(sFilePDF, strTempFile, False)

                    Dim strTempFile As String = IO.Path.GetTempFileName()
                    IO.File.Delete(strTempFile)
                    strTempFile &= ".pdf"
                    IO.File.Copy(sFilePDF, strTempFile, False)