io ho fatto così e funziona:

form:

codice:
Public Class MioForm

    Private Sub comune_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles comune.TextChanged
        ArrTxt(0).Text = comune.Text
    End Sub

    Private Sub lavori_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lavori.TextChanged
        ArrTxt(1).Text = lavori.Text
    End Sub

    Private Sub MioForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call Matrix()
    End Sub
End Class
modulo:

codice:
Module Matrice_CV
    Public ArrTxt(1) As TextBox
    Sub Matrix()
        ArrTxt(0) = MioForm.comune
        ArrTxt(1) = MioForm.lavori
    End Sub
End Module
postami il tuo codice