請問vb(編號：4964)

Dim DateE(4)
For I = 0 To 3
　　A = InputBox("請輸入你的第" & I & "筆資料")
　　DateE(I) = A
　　
Next
請問高手..如何把他由word匯出呢??