Private Sub Form_Load()
Me.AutoRedraw = True
Dim str1() As String
str1 = Split("AB AC AS AD AF", " ")
Dim str2() As String
str2 = Split("1,2,3,4,5", ",")
Dim i As Integer, j As Integer
For i = LBound(str1) To UBound(str1)
For j = LBound(str2) To UBound(str2)
Print str1(i) & str2(j)
Next
Next
End Sub