VBSの質問です

Dim objFile ' 対象ファイル
Dim objFile2 ' 対象ファイル
Dim objFSO ' ファイルシステムオブジェクト
Dim t	'読み込んだテキスト
Dim a1	'テキストの最後の一文字の文字コード
Dim a3	'テキストの最後から二文字目の文字コード

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.txt")
t=objFile.ReadAll
' 書き込み
Set objFile2 = objFSO.CreateTextFile("b.txt")

objFile2.WriteLine ("1")
a1 = asc(right(t,1))
a2 = asc(left(right(t,2),1))

if a1=10 and a2=13 then
	objFile2.Write (t)
else
	objFile2.WriteLine (t)
end if
objFile2.WriteLine ("2")
objFile.Close
objFile2.Close

最後の行に改行がある場合とない場合を判断して出力するようにしています。