● 文字と文字の間にスペースを挿入する ●

半角文字限定。まあ、正しい使い方ではないわな。
Dim TestText As String

TestText = "This is a pen."
Debug.Print TestText

TestText = StrConv(TestText, vbUnicode)
Debug.Print TestText

TestText = StrConv(TestText, vbUnicode)
Debug.Print TestText

[実行結果]
This is a pen.
T h i s   i s   a   p e n . 
T   h   i   s       i   s       a       p   e   n   .   

戻る