Public Function SCAN_CODE(tForm As Form, OBJ_CODE As String)
 
Dim i As Integer
Dim CODE_LENGTH As Integer
    CODE_LENGTH = Len(OBJ_CODE)
 
For i = 1 To Len(tForm.TXT_HEX.Text) Step 1
    If Mid(tForm.TXT_HEX.Text, i, CODE_LENGTH) = OBJ_CODE Then _
      LST_OFFSETS.AddItem (i - 1) / 2
Next
 
End Function

    Dim CurPNTR As String       '1. Code Offset
    Dim NextPNTR As String      '2. Code Offset
    Dim LastPNTR As String
 
    'Scan for enemy code offsets
 
    CurPNTR = (InStr(1, tForm.TXT_HEX.Text, HEXCODE) + 1) / 2
 
    If CurPNTR > 2 Then tForm.LST_OFFSETS.AddItem (CurPNTR - 1)
 
        NextPNTR = (CurPNTR + 1) * 2
 
    CurPNTR = (InStr(NextPNTR, tForm.TXT_HEX.Text, HEXCODE) + 1) / 2
 
    If CurPNTR > 1.5 Then tForm.LST_OFFSETS.AddItem CurPNTR - 1
 
        LastPNTR = (CurPNTR + 1) * 2
 
    CurPNTR = (InStr(LastPNTR, tForm.TXT_HEX.Text, HEXCODE) + 1) / 2
 
        If CurPNTR >= 2 Then tForm.LST_OFFSETS.AddItem CurPNTR - 1