Добрый День!

Вот что значит дааавно не сталкиваться с vba !

имеем код

Private 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

    Dim hf As Long
    Dim spt As String
    spt = "c:\1.txt"

    hf = CreateFile("c:\1.txt", GENERIC_READ, 0&, 0&, OPEN_EXISTING, 0&, 0&) ' Вот так - работает
    hf = CreateFile(spt, GENERIC_READ, 0&, 0&, OPEN_EXISTING, 0&, 0&) ' А вот так уже нет

Как надо ??
Заранее СПАСИБО!