Не понимаю в чем ошибка! - VB

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

При нахождении среднего возраста работников, ВБ пишет ошибку 13 "Несовпадение типов", ругается на эту строку: "v = v + (Year(Date) - Year(gs1.TextMatrix(I, 4)))", ума не приложу,что делать. Вот весь код:

'Пункт меню "Выборка 1"
Private Sub mnuVib1Item_Click()
'изначально получим средний возраст
    v = 0
    For I = 1 To gs1.Rows - 1
        v = v + (Year(Date) - Year(gs1.TextMatrix(I, 4)))
    Next I
    Text1.Text = Int(v / (gs1.Rows - 1))
    
End Sub

Решение задачи: «Не понимаю в чем ошибка!»

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

                                For I = 1 To gs1.Rows - 1
        MSGBOX gs1.TextMatrix(I, 4)
        v = v + (Year(Date) - Year(gs1.TextMatrix(I, 4)))
    Next I
                        