文字列の数にあわせて最後に任意数の文字を付加させたいのですがどのようにしたらよいのでしょうか
？
例）○○→○○＿＿＿（＿＝スペース）

現状ではlen関数を利用してやっているのですが後ろにつけることがうまくいかないです。

こんな感じとか・・・
【1】
    Const STR_LENGTH As Long = 5
    Dim sStr As String
    sStr = "○○"
    sStr = sStr & Space(STR_LENGTH - Len(sStr))
    Debug.Print sStr

【2】
    Dim sStr As String
    sStr = "○○"
    sStr = Format(sStr, "!@@@@@")
    Debug.Print sStr

最初に String$ 関数でスペースを埋め込んでおき
midステートメントで文字を埋め込むという方法もあります。

    Dim str As String
    Dim wk As String
    wk = "文字"
    str = String$(10, " ")
    Mid$(str, 1, Len(wk)) = wk

もうひとつ。
最初に文字列＋スペースをしておき
left$ で必要な文字数だけ切り出すというのもありました。

    Dim str As String
    Dim L As Long
    L = 10 '切り出す文字数
    str = "文字列" & String$(L, " ")    '切り出す文字数分あらかじめ空白を足しておく
    str = Left$(str, L)

あき☆彡さん、ＮＡＯ★さんありがとうございました。
おかげ様でうまく表示できました。
大変助かりました。

文字数が決まっており、スペースで埋めるのなら、
初期化された固定長文字列変数に放り込むだけでいいのでは？

Dim a As String * 10
a = "あああああ"