Помогите найти ошибку при записи в текстовый файл - VB

Формулировка задачи:

Есть класс логгера:

SimpleTextLogger
	
	 FileInstance
	 strFilePath
	
	  Class_Initialize
		 fso
        strFilePath = DataTable(, dtGlobalSheet) &_
						DataTable(, dtGlobalSheet) & 
		 fso = CreateObject()
		 FileInstance = fso.CreateTextFile(strFilePath, True)

	  Class_Terminate
		FileInstance.
		AboutLogger

	  WriteLogLine(strLogInfo)
	 strResult
		strResult = Trim( Now() ) & vbTab & strLogInfo
		FileInstance.WriteLine(strResult)

	  AboutLogger
		MsgBox( & strFilePath & )

 

При вызове FileInstance.WriteLine(strResult) стала появляться ошибка: "Invalid procedure call or argument". strResult имеет тип String.
Объект создается вот так: Set objTextLogger = New SimpleTextLogger. На момент вызова еще не разрушен.
Уже смотрю часа 2, подскажите, что еще может быть.

Решение задачи: «Помогите найти ошибку при записи в текстовый файл»

textual
                            Листинг программы 
                        

                            <font color="blue">Class</font>  SimpleTextLogger
	
	<font color="blue">Private</font> FileInstance
	<font color="blue">Private</font> strFilePath
	
	<font color="blue">Private</font> <font color="blue">Sub</font> Class_Initialize
		<font color="blue">Dim</font> fso
                strFilePath = <font color="teal">"C:\1.txt"</font>
		<font color="blue">Set</font> fso = CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
		<font color="blue">Set</font> FileInstance = fso.CreateTextFile(strFilePath, True)

	<font color="blue">End</font> <font color="blue">Sub</font>

	<font color="blue">Private</font> <font color="blue">Sub</font> Class_Terminate
		FileInstance.<font color="blue">Close</font>
		AboutLogger

	<font color="blue">End</font> <font color="blue">Sub</font>

	<font color="blue">Public</font> <font color="blue">Sub</font> WriteLogLine(strLogInfo)
	<font color="blue">Dim</font> strResult
		strResult = Trim( Now() ) & vbTab & strLogInfo
		FileInstance.WriteLine(strResult)

	<font color="blue">End</font> <font color="blue">Sub</font>

	<font color="blue">Private</font> <font color="blue">Sub</font> AboutLogger
		MsgBox(<font color="teal">"Your log is saved in "</font><font color="teal">""</font> & strFilePath & <font color="teal">""</font><font color="teal">""</font>)

	<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">End</font> <font color="blue">Class</font>

<font color="blue">Dim</font> objTextLog
<font color="blue">Set</font> objTextLog = <font color="blue">New</font> SimpleTextLogger
objTextLog.WriteLogLine(<font color="teal">"Hello"</font>)
                        