Daten vertikal zu horizontal

Option Explicit
Sub Umsort()
Dim zz As Long, ss As Integer
Dim strC As String, strB As String, strN As String
zz = 1 ' 0, wenn es keine Überschriftzeile gibt
While Not IsEmpty(Cells(zz + 1, 1))
strC = Cells(zz + 1, 1)
If Left(strC, 1) = strB And Right(strC, 4) = strN Then
ss = ss + 1
If ss > 256 Then
MsgBox "Spaltenzahl überschritten"
Exit Sub
End If
Cells(zz, ss) = Cells(zz + 1, 1)
Rows(zz + 1).Delete
Else
strB = Left(strC, 1)
strN = Right(strC, 4)
ss = 1
zz = zz + 1
End If
Wend
End Sub

Nun möchte ich jedoch auch das (in diesem Fall) dritte Zeichen berücksichtigen.
Was muß ich am Makro ändern, damit ich Daten in der Form von:
AAA0001
ABA0001
ACB0001
ADB0001
BAA0001
AXA0002
BYA0002
AAA0003
AGA0003
in diese bringe?
AAA0001 ABA0001
ACB0001 ADB0001
BAA0001
AXA0002
BYA0002
AAA0003 AGA0003
Schonmal vielen Dank für eure Mühe!
Michael