スペースである長さにするには？

質問

ある列名の文字数が10文字(MAX10文字)のとき後ろにスペースをつけて15文字にしたいのですがどうすればいいのでしょうか？
例えば

ABCDEFGHIJ
ABCDE

というデータを

ABCDEFGHIJ_____
ABCDE__________
(ただし_はスペースを表す)
として表示させたいのです。

ある列の文字数が10文字固定だとつなげてできるのですが…

よろしくおねがいします。

回答No.1

PAPA0427

Dim A As String
Dim B As String
Dim AA As String
Dim BB As String

A = "ABCDEGHIJ"
B = "ABCDE"

AA = Left( A & Space(15), 15)
BB = Left( B & Space(15), 15)

または、

AA = Mid( A & Space(15), 1, 15)
BB = Mid( B & Space(15), 1, 15)

で、出来ますよ。

お礼

ちょっとやり方変えてしてみたらうまくできました。
考えもせず補足したのが間違いでした。

ありがとうございました。

補足

SQL文で抽出した内容に後ろスペースをつけてテキストに出力するのですが列の数がいっぱいあるのでこれだと苦しいのですが…

他に方法ありませんか？