디버그나는데 어디서 틀렸는지 모르겠네여

[★나는그대밖에생각할줄모릅니다]

성적프로그램인데여 디버그가 계속해서 나는데여 어디서 틀렸는지

모르겠네여 알려주세여


Dim 석차(30) As Integer
Dim a As Integer
Dim i, j As Integer
Dim 평균(30) As Integer

Private Sub cmd끝_Click()
End

End Sub

Private Sub cmd성적_Click()
a = a + 1
mfg출력.Rows = a

mfg출력.TextMatrix(a, 0) = txt학번.Text
mfg출력.TextMatrix(a, 1) = txt국어.Text
mfg출력.TextMatrix(a, 2) = txt영어.Text
mfg출력.TextMatrix(a, 3) = txt수학.Text
mfg출력.TextMatrix(a, 4) = Val(txt국어.Text) + Val(txt영어.Text) + Val(txt수학.Text)
평균(a) = Val(mfg출력.TextMatrix(m, 4)) / 3
mfg출력.TextMatrix(m, 5) = Round(평균(a))

For i = 1 To a
석차(a) = 1
For j = 1 To a
If 평균(i) > 평균(j) Then
석차(a) = 석차(a) + 1
End If
Next j
mfg출력.TextMatrix(a, 6) = 석차(a)
Next i

txt학번.SetFocus

End Sub

Private Sub cmd입력_Click()

txt학번.Text = ""
txt국어.Text = ""
txt영어.Text = ""
txt수학.Text = ""

txt학번.SetFocus

End Sub

Private Sub Form_Load()

mfg출력.TextMatrix(0, 0) = "학번"
mfg출력.TextMatrix(0, 1) = "국어"
mfg출력.TextMatrix(0, 2) = "영어"
mfg출력.TextMatrix(0, 3) = "수학"
mfg출력.TextMatrix(0, 4) = "총점"
mfg출력.TextMatrix(0, 5) = "평균"
mfg출력.TextMatrix(0, 6) = "석차"

[똑똑]

오류 나는 부분과 오류메세지를 적어서 다시 올려 주세요