Convert UTF-16 Unicode to UTF-8 Unicode?

If I save an Excel file as "Unicode Text" (xlUnicodeText), I get a tab-
delimited UTF-16 (also known as UTF-7) unicode file.

How can I convert it to UTF-8?


I've been doing the conversion by automating Word from Excel:

Const WORD_TEXT_FORMAT As Long = 2 'FileFormat:=wdFormatText
Const WORD_UTF8_ENCODING As Long = 65001 'Encoding:=65001

ObjWordDoc.SaveAs _
Filename:="save as UTF-8.txt", _
FileFormat:=WORD_TEXT_FORMAT, _
Encoding:=WORD_UTF8_ENCODING


However, now I need to convert from UTF-16 to UTF-8 on computers that
may not have Word installed. Any suggestions?


Thanks,

Greg