外字を全角スペースに置き換えるには？ (ID:76953)

名前

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

本文 すいません説明不足でした。 たかみちえさんの言われるとおり1文字ずつとらないといけません。 まっ こんな感じでどうでしょう。 Private Sub Command1_Click() Dim intIndex As Integer Text2.Text = "" For intIndex = 1 To Len(Text1.Text) If "F040" <= Hex(Asc(Mid$(Text1.Text, intIndex, 1))) And _ Hex(Asc(Mid$(Text1.Text, intIndex, 1))) <= "F9FC" _ Then Text2.Text = Text2.Text & " " Else Text2.Text = Text2.Text & Mid$(Text1.Text, intIndex, 1) End If Next intIndex End Sub