Also die Lösung war folgende, hab lange gebraucht aber bin dann irgendwann vorhin drauf gekommen.. vielleicht intressierts ja irgendjemanden^^

Dim valuestring As String
        Dim zellestring As String
    
        'Schleife welche das Array durchläuft
        For Each value In events
            Zelle = ActiveDocument.Tables(1).Cell(ZelleNr, 1)
            valuestring = value
            zellestring = Trim(Left(Zelle, Len(Zelle) - 2))
            

            'Prüfen ob aktueller Arraywert gleich ist wie der Wert der Zeile in die er eingefügt wird
            If Trim(zellestring) = Trim(valuestring) Then
            
                'Variable mit Wert füllen
                wert = oXML.SelectSingleNode("/GetWDVBSEvents/VBAEvents/VBAEvent[@Name=""" & value & """]").Text
                'wert = oXML.SelectSingleNode("/GetWDVBSEvents/VBAEvents/VBAEvent[@Name='WD_AreModuleConditions_Satisfied']").Text
                
                'Variable für aktuelle Zelle hochzählen
                ZelleNr = ZelleNr + 1
                
                'Variable zum einfügen im Dokument zusammenstellen
                myValue = "Public Function " & events(counter) & vbCrLf & vbCrLf & "     " & wert & vbCrLf & vbCrLf & "End Function"
                'myValue = "Public Function " & events(counter) & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "End Function"
                
                'Variable für aktuelles Bookmark hochzählen
                counter = counter + 1
                
                'Wert im Dokument einfügen einfügen
                BookmarkNumber = BookmarkNumber + 1
                Bookmark = "Text" & BookmarkNumber & ""
                ActiveDocument.Bookmarks(Bookmark).Select
                Selection.Text = myValue
            Else
                ZelleNr = ZelleNr
                counter = counter + 1
            End If
        Next