Dim fStream As New FileStream("C:\Ejemplo.exe", FileMode.Open, FileAccess.ReadWrite)
 
                    Dim Table As New String(String.Empty)
 
                    Do While Table <> "35126"
                        Table = fStream.ReadByte.ToString & fStream.ReadByte.ToString
                    Loop
 
                    Dim MainTableOffset As Long = (fStream.Position - 2)
                    Dim StringsTableOffset As Long = 0
                    Dim Bytes As New List(Of String)
 
                    Do While fStream.Position <> MainTableOffset + 2 + 5
 
                        Dim CurrentByte As Long = fStream.ReadByte
 
                        If CurrentByte <> 0 Then
                            If CurrentByte.ToString.Length = 1 Then
                                Bytes.Add("0" & CurrentByte.ToString("X"))
                            Else
                                Bytes.Add(CurrentByte.ToString("X"))
                            End If
                        End If
 
                    Loop
 
                    Bytes.Reverse()
 
                    Dim Hex As New String(String.Empty)
 
                    For Each y As String In Bytes
                        Hex += y
                    Next
 
                    StringsTableOffset = CInt("&H" & Hex) + MainTableOffset - &H2C + 4
 
                    fStream.Close()