Hallo Zusammen

Ich möchte 2 Strings vergleichen, und habe dabei folgendes Problem. Beim ersten Wert ist der Vergleich richtig, beim zweiten nicht mehr und ab dem dritten stimmt es wieder. Kann mir nicht erklären wieso es nur beim zweiten einen String nicht funktioniert? Hier erst mal mein Code:

Die ersten Werte sehen folgendermassen aus: 

PK_OnPallet_Selection

PK_OnPallet_Association

TD_OnComponent_DispenseSelection

TD_OnSourceContainer_Selection

TD_OnPallet_Selection         

        Dim Zelle
        Dim ZelleNr
        ZelleNr = 2
        
        
        For Each value In events
            Zelle = ActiveDocument.Tables(1).Cell(ZelleNr, 1)
            If StrComp(Zelle, value, 1) = 1 Then
                mycomp = StrComp(Zelle, value, 1)
                Debug.Print mycomp
                
                'ZelleNr = ZelleNr + 1
                myValue = "Public Function " & events(counter) & vbCrLf & vbCrLf & vbCrLf & "End Function"
                counter = counter + 1
                BookmarkNumber = BookmarkNumber + 1
                Bookmark = "Text" & BookmarkNumber & ""
                ActiveDocument.Bookmarks(Bookmark).Select
                Selection.Text = myValue
                newBookmarkNumber = newBookmarkNumber + 1
                newBookmark = "Text" & newBookmarkNumber & ""
                With ActiveDocument.Bookmarks
                    .Add Range:=Selection.Range, Name:=newBookmark
                    .DefaultSorting = wdSortByName
                    .ShowHidden = False
                End With
            Else
                MsgBox "Da hat etwas nicht funktioniert"
            End If
            
        Next

Ich denke das es mit der Art zusammenhängt wie die Strings verglichen werden, da ja die ersten beiden Strings bis zum letzten Wort identisch sind. Wenn ich den Code ausführe und die Variablen in der Bedingung betrachte, sind es beim zweiten String wo's nicht funktioniert zwei verschiedene Strings drin, sollte also eigentlich durch die Else-Schleife laufen.

Wäre froh um Hilfe. Danke euch im Voraus. 

Freundliche sonnige Grüsse