VBAでUTF-8テキストファイル作成したい

VBA,文字コードなどにあかるくない初心者です。

VBAを利用して、エクセルのとあるセルに記載されている文字を
UTF-8形式でテキストファイルに出力させたいと考えています。

（多言語対応のため・・・、韓国語や中国語でセルに記載された文字を
　UTF-8形式でテキストファイルに文字化けしないよう出力させたいためです。）

どのように実現が可能か、いくつか検索をしてみましたが
難しくてわかりませんでした。

VBAのサンプルコードを教えていただけないでしょうか。
もしくは、初心者でもわかりやすい実現方法が記載されたサイトを教えていただけないでしょうか。

よろしくお願い致します。


※今文字コードを意識せずに下記のようなVBAを書いています。（簡略化して記載しています。）
Sub test()
Open "C:\Sample\Data.txt" For Output As #1 'ファイルを新規作成

'データ書き込み
Print #1, Cells(1, 1)
Close #1

End Sub

No.1 ベストアンサー 回答者： redfox63 回答日時： 2010/12/19 02:19

Openステートメントでは Shift-JISになってしまうと思います

『Microsoft Active Data Objects X.X Libraly』に参照設定をおこなって
ADODB.Streamを使う方向になると思います

dim strm as New ADODB.Stream
strm.Open
strm.Charset = "UTF-8"
' strm.Charset = "Unicode"
strm.WeiteText Cells(1,1)
' すべての書き出しが終わったら
strm.SaveToFile "ファイル名"
strm.Close
Set Strm = nothing

といった具合です