Private Sub Command1_Click()
 For i = 1 To 6
   Print "123456" & Space(i + 5);
   For j = i To 6
     Print Trim(Str(i));
   Next
   Print
 Next
End Sub

看看是不是能用Format函数来将后面的数设置成“空格字符&数字”。或是用Len函数来取得后面的数字转换成字符串后的长度，再补上欠余的空格。

你要觉得程序不难看，也可以如下
Private Sub Command1_Click()
 For i = 1 To 6
   Print "123456" & Space(i + 5); String(7 - i, Trim(Str(i)))
 Next
End Sub