求一方案,一个不知道怎么描述的有关问题,但是进来看看就知道了小弟我的目的了,希望大家都来看看,顶者有分

求一方案,一个不知道如何描述的问题,但是进来看看就知道了我的目的了,希望大家都来看看,顶者有分.
我的程序很简单,就是求一个方程式的所有值
Private   Sub   Form_Load()
        Dim   x   As   Long
        Dim   y   As   Long
        Dim   b   As   Double
        Dim   z   As   String
        x   =   1
       
        For   x   =   1   To   1023   Step   1
                b   =   ((512   -   x)   /   512)
                y   =   Int((Atn(-b   /   Sqr(-b   *   b   +   1))   +   2   *   Atn(1))   *   1024   /   3.14159)
                z   =   Hex(y)
                If   Len(z)   =   2   Then
                        z   =   "00 "   &   z   &   "H "
                Else
                        z   =   "0 "   &   z   &   "H "
                End   If
               
        Next   x

End   Sub
现在我下一步要做的事情就是把这些值以下面这种形式打印出来
          DW     0043H,0046H,0049H,004CH,004FH,0051H,0054H,0056H,0059H,005BH；x=10
          DW     005DH,005FH,0062H,0064H,0066H,0068H,006AH,006CH,006EH,0070H；x=20
                                                                              .
                                                                              .
                                                                              .
                                                                              .
即以十列一行排列，每组数据间用“，”隔开，每一行最后用“；”号,每行前面加一个“DW”，后面加一个X值的标记。
上面方程式为Y=argcos((512-x)/512)*1204/pi
真的不知道要如何实现，我想是不是可以建立一个WORD文档，在这个文档中来一行一行显示啊，但是我不知道要怎么做！一点思路都没有，或者高手们有其他的方法，谢谢赐教！！

------解决方案--------------------
Dim x As Long
Dim y As Long
Dim b As Double
Dim z As String
Dim sTmp As String

For x = 1 To 1023 Step 1
b = ((512 - x) / 512)
y = Int((Atn(-b / Sqr(-b * b + 1)) + 2 * Atn(1)) * 1024 / 3.14159)