Mit VBS Hex-Werte aus Textdatei auslesen und mit anderen vergleichen

Hallo miteinander,

ich habe zwei Textdateien vorliegen, aus denen bestimmte Werte miteinander verglichen werden sollen. Die dat1.txt enthält Hex-Werte in folgender Formatierung:


Diese Werte sollen Zeile für Zeile ausgelesen werden und dann in der dat2.txt gesucht werden. Soweit eigentlich kein Problem aber die Werte liegen in der dat2.txt nur als kryptische Sonderzeichen vor:


Wenn die in dat1.txt eingelesenen Werte nur 1 mal in dat2.txt vorkommen, sollen genau diese Werte in die Datei dat3.txt geschrieben werden. Folgendes habe ich schon selbst ausprobiert aber leider immer ohne Erfolg.


Das Problem hierbei ist, dass die Werte aus dat1.txt immer nur als 1 einzelnes ASCII Zeichen übersetz werden. Somit wird der Wert nicht in die dat3.txt geschrieben, obwohl der Wert nicht in der dat2.txt enthalten ist. Hoffe einer von euch hat eine Idee wie ich das Script noch retten kann. Freu mich auf eure Antworten.

MfG
knechtibus

Set fso = CreateObject("Scripting.FileSystemObject")  
D1 = "C:\test HEX\dat1.txt"  
D2 = "C:\test HEX\dat2.txt"  
D3 = "C:\test HEX\dat3.txt"  

If fso.FileExists(D3) Then fso.DeleteFile(D3)
H = Split(fso.OpenTextFile(D1).ReadAll, vbCrLF)
For Each C In H
    P = ""  
    For i = 1 To Len(C) Step 2
        P = P & Chr("&H" & Mid(C, i, 2))  
    Next

    Anzahl = 0
    Set D2Datei = fso.OpenTextFile(D2)
    Do Until D2Datei.AtEndOfStream
        T = D2Datei.ReadLine
        X = InStr(T, P)
        Do While X > 0 And X < Len(T)
            Anzahl = Anzahl + 1
            X = InStr(X + 1, T, P)
        Loop
        If Anzahl > 1 Then Exit Do
    Loop
    D2Datei.Close
    
    If Anzahl = 1 Then fso.OpenTextFile(D3, 8, True).WriteLine C
Next

fso.CreateTextFile(DATEI, True)