Kompilierungsfehler auf alter Excel Version

Function Zeilenumbruch(ByRef strText() As String, ByVal intZeichenProZeile As Integer) As Integer
'* Zeilenumbruch -- Teilt einen String in Zeilen auf,                    *
'*   wobei an Leerzeichen getrennt wird. Die Leerzeichen                 *
'*   werden dabei entfernt.                                              *
'*   Enhält der String keine passenden Leerzeichen,                      *
'*   wird später oder gar nicht getrennt                                 *
'* ACHTUNG: bei Excel 97 und tiefer wird nichts bearbeitet und           *
'*   der 1 zurückgewgeben, da diese Versionen InStrRev nicht kennen!     *
'* Parameter                                                             *
'*   strText() -- der zu berabeitende String                             *
'*     ACHTUNG1: muss in strText(1) stehn                                *
'*     ACHTUNG2: muss ein DYNAMISCHER array sein, s. Rückgabe            *
'*   intZeichenProZeile -- maximale Anzahl pro Zeile                     *
'* Rückgabe                                                              *
'*   Anzahl der Zeilen                                                   *
'*   Die einzelnen Zeilen werden ind den array strText() geschrieben.    *
'*     Er wird also über ReDim entsprechend der Zeilenanzahl erweitert.  *
'*     Zusätzlich enthält er immer das leere Element strText(0).         *
'* 01.02.2005 Helge                                                      *
Dim intZeile As Integer
Dim intZeilenumbruchPos As Integer
intZeile = 1
If intExcelVers < 9 Then
Zeilenumbruch = 1
Exit Function
End If
Do While Len(strText(intZeile)) > intZeichenProZeile
' +1, weil das Leerzeichen ja noch abgeschnitten wird
intZeilenumbruchPos = InStrRev(strText(intZeile), " ", intZeichenProZeile + 1)
'Falls kein Lerzeichen inerhalb der max. Länge vorhanden ist, _
wird weiter nach hinten gesucht
If intZeilenumbruchPos = 0 Then
intZeilenumbruchPos = InStr(intZeichenProZeile, strText(intZeile), " ")
End If
If intZeilenumbruchPos = 0 Then
Exit Do
End If
ReDim Preserve strText(intZeile + 1)
strText(intZeile + 1) = Right(strText(intZeile), Len(strText(intZeile)) - intZeilenumbruchPos)
strText(intZeile) = Left(strText(intZeile), intZeilenumbruchPos - 1)
intZeile = intZeile + 1
Loop
Zeilenumbruch = intZeile
End Function