VBA  rechts in Zelle  suchen, woanders  ersetzen

Hallo zusammen,

ich bin Marc und ganz neu auf dem Gebiet  der VBA Programmierung und werde mich wohl noch öfters hier im Forum rumtreiben:

Über die Suche und im Netz / Forum habe ich leider zu meinem Thema nichts finden können, vielleicht habt ihr ein paar Tipps.

Ich muss eine CSV bearbeiten und suche in Spalte B   nach XX (an den letzten beiden Stellen!)

Wenn XX gefunden, soll in Spalte J "YYYYYY" eingetragen werden:

Das klappt soweit.

Mein Problem ist, dass die Suche die ganze Zelle durchsucht, ich die Änderung aber nur brauche, wenn die letzten 2 Ziffern XX sind.

Als Beispiel:

IST:

Soweit bin ich gekommen

               B                                  J

1       FFFFFFF_XX                        YYYYYY

2       GGGGG_XX                        YYYYYY

3       DDDXXDD_FF                      YYYYYY

4       XXFFFFFF_DD                     YYYYYY

SOLL:

                  B                                    J

1       FFFFFFF_XX                        YYYYYY

2       GGGGG_XX                        YYYYYY

3       DDDXXDD_FF                      

4       XXFFFFFF_DD                    

zur Info:
Mein Code ändert die Farbe der Zelle um es bessre sichtbar zu machen..

Danke im voraus, und hoffe hier kann mir jemand weiter helfen..

Option Explicit


Sub suchen()

'-----------------Versuch_3-----------
'------Suchen nach XX am Ende der Zelle "B2" z.B EL000000_____XX--------------------
'------Problem, gefunden wird auch XX am Anfang der Zelle z.B. "B4"-----------------



Dim fnd As String, FirstFound As String
Dim FoundCell As Range, rng As Range
Dim myRange As Range, LastCell As Range

   
    fnd = InputBox("Bitte Namen eingeben")
          
          
Set myRange = Range("B:B")
Set LastCell = myRange.Cells(myRange.Cells.Count)
Set FoundCell = myRange.Find(What:=fnd, After:=LastCell)
   
   
      
        If Not FoundCell Is Nothing Then
        FirstFound = FoundCell.Address
               
        Else
        GoTo NothingFound
        End If
    
        
Set rng = FoundCell
    
   
    
    Do Until FoundCell Is Nothing
        
        
        Set FoundCell = myRange.FindNext(After:=FoundCell)

         
'-----------------------zum sichtbar machen Colorindex --------------------

'       Cells(FoundCell.Row, 10).Value = "YYYYYYYYY"
        Cells(FoundCell.Row, 10).Interior.ColorIndex = 6
        Cells(FoundCell.Row, 2).Interior.ColorIndex = 6
       
        
        Set rng = Union(rng, FoundCell)
        
        If FoundCell.Address = FirstFound Then Exit Do
        
    Loop
    
    rng.Select
       


    
    Exit Sub
        
        
NothingFound:
    MsgBox ("Nichts gefunden")


        
        
End Sub