포문으로 똑같은 if문 돌리기

If change_code1 = code(0, 0) Then
code(0, 2) += 1 ElseIf change_code1 = code(1, 0) Then
code(1, 2) += 1 ElseIf change_code1 = code(2, 0) Then
code(2, 2) += 1
Else
j += 1
End If If change_code2 = code(0, 0) Then
code(0, 2) += 1 ElseIf change_code2 = code(1, 0) Then
code(1, 2) += 1 ElseIf change_code2 = code(2, 0) Then
code(2, 2) += 1
Else
j += 1
End If If change_code3 = code(0, 0) Then
code(0, 2) += 1 ElseIf change_code3 = code(1, 0) Then
code(1, 2) += 1 ElseIf change_code3 = code(2, 0) Then
code(2, 2) += 1
Else
j += 1
End If이런식으로, change_code숫자가 들어가게됩니다.이것을, 저렇게 써주자니, 백개정도가 되어서 너무 소스가 길어져서요,혹시 포문으로 해서 돌릴수 있는 방법이있을까요??