VB and massives problem

I really need help from someone who's willing to overlook (and correct) a work I made for university. There is a bug in there but I just can't figure out what I did wrong :cry:

I have to submit my work tomorrow by noon and I've just about everything I know. I haven't got anyone else to ask for help :cry:

As soon as I hit the "Opereeri" button (as seen here) I get the following error (as seen here)

http://www.ramones.pri.ee/arvuti2.xls - here is the file itself.

Welcome to the Forums.

Usually we dont give code for homework projects unless the poster shows an effort. So we can help guide you since you already wrote the app.
Only problem is that none of the links work. Try attaching the files to a post for easier and faster access.

damn, that's right my service provider has limited the incoming connections from other countries. Let's try linking these pics/xls file again.
It says that xls is an invalid filetype and so I compressed it in .zip archive.

Oh and believe some hard work has been done with this project. The bad thing is that I have to submit this work by tomorrow noon and I haven't got any idea what I did wrong. I'm sure I'm just missing something important...

well i know what the error is from, but i have no idea how to fix it as i don't undersatnd the required result and also don't understand the langauge

VB Code:

Sub M_max_rvn(A(), m, n, max, rn, vn)
 Dim i, j
 max = A(1, 1)    ' this is incorrect as max is always empty
 rn = 1
 vn = 1
  For i = 1 To m     ' if m here is swapped fo the n below he code runs, but i have no idea if that is right
   For j = 1 To n     ' once j goes above 7 it is out of range
   If A(i, j) > max Then    ' this can't work as max is empty
   max = A(i, j)
   rn = i
   vn = j
   End If
   Next j
  Next i
End Sub

i can't help more than that

pete