最初に String$ 関数でスペースを埋め込んでおきmidステートメントで文字を埋め込むという方法もあります。 Dim str As String Dim wk As String wk = "文字" str = String$(10, " ") Mid$(str, 1, Len(wk)) = wk