Sub tets()
Dim str$, i%, k%, m%, arr()
Dim zfc$
zfc = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ"
str = "|" & Mid(zfc, 1, 26)
For i = 1 To Len(str)
For k = 2 To Len(str)
m = m + 1
ReDim Preserve arr(1 To m)
arr(m) = Replace(Mid(str, i, 1) & Mid(str, k, 1), "|", "")
Next
Next
Stop
End Sub