VBScriptの処理でログを出す処理作っているのですが処理中に何らかの原因で正常な処理が出来なかった

場合にエラーログを出したいのですが冗長にならないようにしたいのですが・・・どうすればよいでしょうか？
Option Explicit

Const ForAppending = 8

Dim objFileSysFolder
Dim objOutFile
Dim objFileSysText
Dim strScriptPath
Dim strCheckPath
Dim strCreatePath
Dim strDate
Dim strCreateFile
・
・
・
If XXXX then
aaaa
Else
bbbb
End If
・
・
・
If YYYY then
CCCC
Else
DDDD
End If
・
・
・
If ZZZZ then
EEEE
Else
fffff
End If

Set objFileSysFolder = CreateObject("Scripting.FileSystemObject")
strCheckPath = objFileSysFolder.BuildPath("D:\","TEST")
strDate = CStr(Right("0000" & Year(Now),4) & Right("00" & Month(Now),2))

If objFileSysFolder.FolderExists(strCheckPath) = True Then
Set objFileSysText = CreateObject("Scripting.FileSystemObject")

strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
strCreateFile = objFileSysText.BuildPath(strScriptPath,strDate & ".log")

If objFileSysText.FileExists(strCheckPath) = True Then
Set objOutFile = objFileSysText.OpenTextFile(strCreateFile,ForAppending)
objOutFile.WriteLine "Date[" & date & "] " & _
"Time[" & time & "] " & _
"User[" & "OK" & "]"
objOutFile.Close
Else
Set objOutFile = objFileSysText.OpenTextFile(strCreateFile,ForAppending)
objOutFile.WriteLine "Date[" & date & "] " & _
"Time[" & time & "] " & _
"User[" & "NG" & "]"'ここでメッセージを変えたい
objOutFile.Close
End If
End If

Set objFileSysFolder = Nothing
Set objFileSysText = Nothing
Set objOutFile = Nothing
こういったログのルーチンをあるとしますが、If～Else～End Ifの部分でElse以降の場合メッセージを変えるにはどうすればいいでしょうか？

メッセージを変えて、
objOutFile.WriteLine "違うメッセージ"
とすればいいように思います。
勘違いコメントだったら補足下さい。

冗長でなくするには、１つには共通部分をくくり出すことです。
例えば、
CreateObject("Scripting.FileSystemObject")
FileSystemObject は、ひとつ作れば使い回しができます。

IF … THEN
処理Ａ
処理Ｂ
処理Ｚ
ELSE
処理Ａ
処理Ｃ
処理Ｚ
END IF
のようになっていて、それぞれの処理に特別な副作用がないなら

処理Ａ
IF … THEN
処理Ｂ
ELSE
処理Ｃ
END IF
処理Ｚ
のようにできます。