Как создать файл TXT и непоказывая его на экране записать в него строку.

Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Const OPEN_EXISTING = 3
Const CREATE_NEW = 1
Const OPEN_ALWAYS = 4
 
Type Buf
  s As String * 20
End Type
 
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, _
ByVal lpOverlapped As Long) As Long
 
Declare Function CloseHandle Lib 'kernel32' _(ByVal hObject As Long) As Long
 
Sub CreateFileMy()
Dim hFile As Long, Str As Buf, v, wb As Long
hFile = CreateFile('C:Test.txt',GENERIC_WRITE, 0, 0, OPEN_ALWAYS, 0, 0)
Str.s = 'Создан новый файл'
v = WriteFile(hFile, Str, Len(Str), wb, 0)
v = CloseHandle(hFile)
End Sub

Sub Zapistxtfile()
Dim FileName As String
 
FileName = 'C:  est2.txt'
Open FileName For Output As #1
 
Print #1, 'Привет' 'заносит текстовую строку
Print #1, 'пустая строка
Print #1, 'как дела' 'заносит текстовую строку
Print #1, Tab(n) ' подобие клавиши Tab
Print #1, Sps(n) ' пробел (Space)
Print #1, 'Всё нормально';Tab;'привет'
 
Close #1
 
Name 'c:    est2.txt' As 'c:    est2.html' ' pereiminovivaet fail
 
End Sub