すみません
Dim objFileSys 　<スペルミス
Dim objTextFile
Set objFileSys = CreateObject("Scripting.FileSystemObject") 　<スペルミス
Set objTextFile = objFileSys.CreateTextFile("C:\WINNT\SYSTEM32\logFiles\aaa.txt",True)

ここに書くときに間違えてしまいました。
スペルミスはない状態でも動かないのですが、解る方いますでしょうか？