Процедуры(VBA)

[pafnutic]

Не знаю как написать процедуру на VBA, которая сравнивает столбцы квадратной матрицы 3-го порядка. Сравнение i-го и j-го столбца оформить в виде функции (должна возвращать True – при совпадении столбцов, False – в противном случае).
Сделал вот так, но не могу осуществить в виде функции.
Код:
Sub List6_18()
Dim Int_Array(1 To 3, 1 To 3) As Integer
Dim str_msg As String
Dim str_msg1 As String
Dim str_msg2 As String
Dim str_msg3 As String
Dim i As Integer
Dim j As Integer
str_msg = ""
str_msg1 = ""
str_msg2 = ""
str_msg3 = ""
For i = 1 To 3
For j = 1 To 3
Int_Array(i, j) = InputBox("Введите A(" & i & "," & j & ")", "Ввод элементов массива")
Next j
Next i
For i = 1 To 3
For j = 1 To 3
str_msg = str_msg & Format(Int_Array(i, j), "@@@@@")
Next j
str_msg = str_msg & Chr(13) 'перевод строки
Next i
MsgBox "Введено: " & Chr(13) & str_msg, , "Вывод ранее введенного массива"

For i = 1 To 3
str_msg1 = str_msg1 & Format(Int_Array(i, 1), "@@@@@")
Next i

For i = 1 To 3
str_msg2 = str_msg2 & Format(Int_Array(i, 2), "@@@@@")
Next i

For i = 1 To 3
str_msg3 = str_msg3 & Format(Int_Array(i, 3), "@@@@@")
Next i

If str_msg1 = str_msg2 Then
MsgBox "Столбец 1 совпадает со столбцом 2"
Else
MsgBox "Столбец 1 не совпадает со столбцом 2"
End If

If str_msg1 = str_msg3 Then
MsgBox "Столбец 1 совпадает со столбцом 3"
Else
MsgBox "Столбец 1 не совпадает со столбцом 3"
End If

If str_msg2 = str_msg3 Then
MsgBox "Столбец 2 совпадает со столбцом 3"
Else
MsgBox "Столбец 2 не совпадает со столбцом 3"
End If
End Sub

пример:
должно выводиться
Столбец 1 не совпадает со столбцом 2
Столбец 1 совпадает со столбцом 3
Столбец 2 не совпадает со столбцом 3

[pivas]

Не хочу показаться странным, но чем не устривает стандартная функция - СОВПАД