Reading multiple strings from another file?

[Ryoushi.]

My program was working perfectly, but now I've tried to enable it to read multiple strings from my 2nd executable and it's not working at all, from what I can tell.

Here's the code for my stub.

            Dim key As String = "myKey"
            Dim EMAIL As String
            Dim yourfile As String = "\stub.exe"
            Dim PASSW As String
            FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
            yourfile = Space(LOF(1))
            FileGet(1, yourfile)
            FileClose(1)
            EMAIL = Split(yourfile, key)(1)
            PASSW = Split(yourfile, key)(1)

It was working fine with the "EMAIL" part, but I tried to add in the "PASSW" String and it's not working now.

I can provide other parts of my code if required.


Help is appreciated.
R.