Format/field width specifier for UserForm TextBox

[Special K]

I have a TextBox on a UserForm that displays the results of calculations done inside the UserForm's code. I build up a string using the concatenate operator along with spaces (" ") and the values. When all calculations are finished, I print a report similar to the following:

input     output 1    output 2    output 3
-------------------------------------------
input 1   value 1-1   value 1-2   value 1-3
input 2   value 2-1   value 2-2   value 2-3
...
input N   value N-1   value N-2   value N-3

The problem is that the length of input 1, input 2, input N strings can be variable, but I still want all columns to line up in the TextBox. The way to solve this using C/C++ would be to use a field width specifier such as the following:

printf("%-20s%-10s%-10s\n", value1[1], value1[2], value1[3]);

Where an appropriate field width is chosen based on the expected size of the strings.

Does something similar exist in Excel VBA? I suppose I could manually go through each string and pad the end with as many spaces as it would take to give the desired length, but that seems kind of tedious.

 

[Worf]

Strings can be padded automatically. Make sure to use a mono spaced font such as Courier New.

Private Sub CommandButton2_Click()
Dim v$(0 To 3), h$(0 To 3), w, i%, n%
w = Array(8, 15, 20, 30)                ' field widths
h(0) = "Input": h(1) = "Output1": h(2) = "Output2": h(3) = "Output3"
v(0) = "s0": v(1) = "string1": v(2) = "string2string2": v(3) = "string3string3string3"
n = 0
For i = LBound(w) To UBound(w)
    n = n + w(i)
    h(i) = Pad(h(i), w(i))
    v(i) = Pad(v(i), w(i))
Next
Me.TextBox15 = h(0) & h(1) & h(2) & h(3) & vbLf & WorksheetFunction.Rept("-", n) & _
vbLf & v(0) & v(1) & v(2) & v(3)
End Sub[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]Public Function Pad$(ByVal os$, ByVal rl%)
Pad = Format(os, String(rl, "@"))
End Function
[/FONT][/COLOR]