prova così:

My.Computer.FileSystem.WriteAllText(startup_dir & "\Gestione Commesse.bat", bat, False, Encoding.GetEncoding("iso-8859-1"))