Вот пример кода создания текстового файла. Что делает: проверяет наличие директории, если нет создает, если есть переходит в нее. Затем создает файл и записывает туда твою строку. Файл переписывает заново. Если нужно дополнить, то посмотри свойство оператора Open. Проверку на наличие файла делай аналогично проверке наличия директории.

Public Sub CreateFile(ByVal NameFile As String, _
ByVal TextFile As String, ByVal NameDir as String)

Dim hFile As Long
If Dir(strNameDir) = "" Then
MkDir strNameDir
Else
ChDrive "C"
ChDir strNameDir
End If
hFile = FreeFile
Open NameFile For Output Access Write As hFile
Write #hFile, TextFile
Close hFile
End Sub