Ошибка в программе - VB

Формулировка задачи:

Вообщем задача состоит в следующем:Напечатать строку, в которой расположен первый элемент матрицы D, равный ключу поиска t.
я пишу программу в visual basic 6.0

Private Sub Command1_Click()
Dim m As Integer, n As Integer, i As Integer, j As Integer, d() As Integer, t As Integer, k As Integer
m = InputBox("ââåäèòå m")
n = InputBox("ââåäèòå n")
t = InputBox("Ââåäèòå çíà÷åíèå êëþ÷à ïîèñêà")
ReDim d(m, n)
For i = 1 To m
For j = 1 To n
d(i, j) = InputBox("d")
Print d(i, j);
Next
Next
flag = False
For i = 1 To m
If d(m, n) = t Then
flag = True
t = j
j = j + 1
Print "ñòðîêà:" & t
End If
Next
If flag = False Then
MsgBox "таких элементов нет"
End If
End Sub

но в итоге мне все равно выводится что таких элементов нет
прошу помогите пожалуйста

Решение задачи: «Ошибка в программе»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim m As Integer, n As Integer, d() As Integer, t As Integer, k As Integer
Dim i As Integer, j As Integer
  Randomize
  m = InputBox("введите m", , 3)
  n = InputBox("введите n", , 3)
  t = InputBox("введите ключ поиска t", , Int(Rnd * 10))
  ReDim d(m, n)
  For i = 1 To m
    For j = 1 To n
      d(i, j) = InputBox("d", , Int(Rnd * 10))
    Print d(i, j);
    Next
    Print
  Next
  For i = 1 To m
    For j = 1 To n
      If d(i, j) = t Then
        Print "строка" & i
        For k = 1 To n
          Print d(i, k);
        Next
        Print: Print
        Exit Sub
      End If
    Next
  Next
  MsgBox "'элементы соответствующие ключу отсутствуют"
End Sub

                        