помогите исправить ошибку в коде

написал код на задачу , он работает но неправильно , помогите пожалуйста :confused:
задана квадратная матрица M*N. Вывести на экран элементы , которые встречаются 2 раза в каждом рядке и являются парными .

Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
Dim A() As Currency
Dim k As Integer
Dim j As Integer
Dim f As Integer

n = InputBox("введите n")
Text1.Text = ""
Text2.Text = ""
ReDim A(n, n)
For i = 1 To n
For j = 1 To n
A(i, j) = InputBox("a(" & CStr(i) & "," & CStr(j) & ")=")
Text1.Text = Text1.Text & CStr(A(i, j)) & vbTab
Next j
Text1.Text = Text1.Text & vbCrLf
Next i

For i = 1 To n
For j = 1 To n
k = 0
For f = 1 To n
If j <> f Then
If (A(i, j) Mod 2 = 0 And A(i, f) Mod 2 = 0) Then
If A(i, j) = A(i, f) Then k = k + 1
End If
End If
Next f

If k = 1 Then
Text2.Text = Text2.Text & CStr(A(i, j)) & " "
End If

Next j
Next i
End Sub