求教如何把下面代码执行后取得的数据写入一个（vvv as string)vvv变量里,谢谢！！！

[ahbc123]

求教如何把下面代码执行后取得的数据写入一个（vvv as string)vvv变量里,谢谢！！！(最好写入模块，再调用）
Dim aa As Integer
Dim bb As Integer
Dim i, ii As Integer
Dim aaa As String
Dim sss As String
aa = Text1
bb = Text2
aaa = "qqq"
sss = "ffff"
Print wwwwwwwwwwwwwwwwwwwwwwww
For i = 0 To aa - 1
Print aaa
For ii = 0 To bb - 1
Print sss
Next
Print aaa
Next
End Sub

如text1=2，text2=2得到的为：
wwwwwwwwwwwwwwwwwwwwwwww
qqq
ffff
ffff
qqq
qqq
ffff
ffff
qqq

我想把这一结果赋予一个变量vvv。

[victorycyz]

Print wwwwwwwwwwwwwwwwwwwwwwww
For i = 0 To aa - 1
Print aaa
vvv=vvv & aaa
For ii = 0 To bb - 1
Print sss
vvv=vvv & sss
Next
Print aaa
vvv=vvv & aaa
Next
End Sub

如text1=2，text2=2得到的为：
wwwwwwwwwwwwwwwwwwwwwwww