Cannot create a Chrome URL shortcut using VBA. But works if I copy / paste the output

I am trying to automatically create internet links to IMDB into Windows folders.

I get 'The target "" of this Internet Shortcut is not valid...." error for my links. If I copy / paste it as a new link in Windows it will work (see screenshot - top link doesn't work. If I copy / paste it it works).

I am using this code to create the file. I guess creating it as a 'text' style document is the error but I can't figure out a way round it:

   
    'write imdb file
    Dim Fileout As Object
    Set Fileout = fso.CreateTextFile(strPath & "IMDB.url", True, True)
    Fileout.Write "[{000214A0-0000-0000-C000-000000000046}]" & vbCrLf
    Fileout.Write "Prop3=19,2" & vbCrLf
    Fileout.Write "[InternetShortcut]" & vbCrLf
    Fileout.Write "URL=" & strIMDB & vbCrLf
    Fileout.Write "IDList="
    Fileout.Close

Capture.PNG

Ok, didn't manage to 'solve' this but found if I create multiple URL shortcuts only the first one doesn't work - the rest do for some odd reason, so just need to create more than one in the script and overwrite the first one and it works. V odd....