指定した文字数の後に空白を入れる。

方法１

Sub stringTest()

    Dim myString As String * 18
    myString = "bimori"
    Debug.Print myString

End Sub

処理結果↓↓

この場合、"bimori"以降18文字までは空白が入ります。
しかし、この方法では文字数が変わったときに対応できません。

方法２

Sub stringTest2()

    Dim myString As String
    myString = "bimori"
    myString = myString & Space(12)
    Debug.Print myString
    
End Sub

Space関数で、指定した数の空白を足します。

備忘録でした～。(^^)/~~~