UTF-8の文字列をセルに区切ってセットするには？ (ID:87982)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 UTF-8のファイルをmDatDataに入れてラベルには表示されるのですが この読み込んだ内容を区切ってエクセルの各列にセットしようとすると 文字化けでどうしたらいいかわかりません。 Dim mDatData as string Set Stm = CreateObject("ADODB.Stream") Stm.Open Stm.Charset = "UTF-8" Stm.LineSeparator = adCRLF Stm.LoadFromFile SourceFilePath Do Until Stm.EOS 'End Of Streamまでループ mDatData = mDatData + Stm.ReadText(adReadLine) Loop ’こんな感じでセットしようかと思ったのですが化けてしまいます Range("F1").Value = MidB(mDatData, 1, 2) Range("F2").Value = MidB(mDatData, 3, 5) Range("F3").Value = MidB(mDatData, 10, 28) Range("F4").Value = MidB(mDatData, 40, 25) 簡単に変換できるようにしたいのですが、どうしてもわからないので 教えていただけますでしょうか？