VBS to append to the default.dic dictionary file

I am trying to create a VBS (no experience btw) to append to the default.dic file which is where you add words to the dictionary when you are in IE and possibly other apps.

The VBS will work if the default.dic file is created from scratch as a text file and renaming it to default.dic...BUT..once I start adding words to the dic file from IE, it changes the encoding. When I run the VBS below after adding words through IE, it adds this:


Instead of this:
Test1
Test2

I want to make sure that if any users have already added words to the file that it will only add the extra words and not create a new file or delete what is already there.

Here is the code:

Const ForAppending = 8
Set objNetwork = CreateObject("WScript.Network")
strFolder = "C:\Users\" & objNetwork.UserName & "\AppData\Roaming\Microsoft\Spelling\en-US"
strFile = "default.dic"
strPath = strFolder & "\" & strFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strPath, ForAppending)

objFile.WriteLine
objFile.WriteLine "Test1"
objFile.WriteLine "Test2"

objFile.Close

Select allOpen in new window

The file is located here:
C:\Users\%username%\AppData\Roaming\Microsoft\Spelling\en-US