Dim Zeichenfolge As String, i&
 
  Zeichenfolge = "AA=11111 BB=2222222222 CC=33 333 DD=4444444 4444 444 EE=55"
 
  For i = 4 To Len(Zeichenfolge)
    If Mid$(Zeichenfolge, i, 1) = "=" Then Mid$(Zeichenfolge, i - 3, 1) = "#"
  Next i
 
  Dim testArray() As String
 
  testArray = Split(Zeichenfolge, "#")

Gruss,

Zardoz