[RESOLVED] Expected : List Seperatos {error in vb6 , visual studio 6 }

So i get this error ( Expected : List seperator ) on line with MID(i) = A(i,j) - A(1,1)

I'm a beginner with vb so it would be appreciated if you could explain the problem to me . The strage characters are just another language but the characters are for expressions so i don't believe it matters . It is only the beginning up to the error line .

Here's the code

Private Sub Command1_Click()
Dim i, j, b, c, d As Single
Dim s, n, M, M_1, mesos, GMID(), u_1, u, uu, u0, sum As Integer
Dim MID() As Integer
Dim A() As Integer
s = InputBox("ÅéóÜãåôå áñéèìü äéåõèýíóåùí")
n = InputBox("ÅéóÜãåôå áñéèìü ðåñéüäùí")
sum = 0
b = 0
ReDim MID(s)
ReDim GMID(s * n)
ReDim A(s * n, 2)
For i = 1 To s * n
For j = 1 To 2
A(i, j) = InputBox("ÅéóÜãåôå ãùíßá óêüðåõóçò (óå 6øÞöéá ìïñöÞ)")
Next
Next
For i = 1 To s * n
j = 1
mesos = (A(i, j) + (A(i, j + 1) - 200)) / 2
Print "ÌÝóïò üñïò:"; mesos
Next
For i = 1 To s
j = 1
MID(i) = A(i,j) - A(1,1)
Print "ÌÝóç ÁíçãìÝíç ôéìÞ", i, MID(i)
Next
For d = 1 To s
For i = d To s * n Step s
j = 1
sum = sum + A(i, j)
Next
GMID(d) = sum / n
Print "Ãåíéêüò ìÝóïò üñïò äéåýèõíóçò"; i, "ãéá", n, "ðåñéüäïõò :", GMID(d)
Next



Please help ! ! !