Romanian diactritics "ș", "Ș", "ț","Ț"

[staicumihai]

Does anyone have an idea about how can I save a txt file with following names using a macro in Word 2010:

123ț.txt
121ș.txt


etc
I need to get the characters Ț, ș using code


The macro I have is like this:


Sub DIA()

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim Fileout As Object
Set Fileout = fso.CreateTextFile("D:\MIHAI\DOSARE\BAAR\" & ChrW$(141), True, True)
Fileout.Write "your string goes here"
Fileout.Close

End Sub


Any ideas ?
Thanks.

[gmayor]

ț = ChrW(539)
Ț = ChrW(538)
ș = ChrW(537)

[staicumihai]

Thank you!