使用format设置占位符，让长度不一样的数据对齐。

代码如下:

    Dim i As Integer
    Me.Text2 = ""
    For i = 1 To 100
        '将有1-3位数 使用Format 可以让它对齐
        Me.Text2 = Me.Text2 & Format(CStr(i), "@@@") & Space(1)
        If i <> 0 And i Mod 10 = 0 Then
            Me.Text2 = Me.Text2 & vbCrLf
        End If        

    Next i

示   例:

点击下载此附件

图   示: