TreeView: ошибка при клике на элемент

Private Sub tsmAdd_Cont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbAddContact.Click
        Dim newnode As TreeNode
        Dim NC As New dlg_Kontact_my 
        If Me.tvwStructure.SelectedNode Is Nothing Then Exit Sub
        If NC.ShowDialog = Windows.Forms.DialogResult.OK Then
            If Me.tvwStructure.SelectedNode.Tag.Equals("Folder") Then
                Try
                    Me.Address_table.Rows.Add(NC.Cont_row) ' error_1: 
                    ' Длина входного массива больше числа столбцов в этой таблице.
 
                    newnode = Me.tvwStructure.SelectedNode.Nodes.Add(NC.Kontakt_name, NC.Kontakt_name, "Contact", "Contact open")
                    newnode.Tag = "Kontact"
                Catch ex As DataException
                    MsgBox("Не допускаются одинаковые имена контактов в одном узле!", MsgBoxStyle.Exclamation)
                End Try
            End If
        End If
 
    End Sub
 
Public Class dlg_Kontact_my
    Dim Kontact_data(11) As Object
    Dim Kontact_data_edit(11) As String
 
    Friend Property Cont_row() As Object()
        Get
            Cont_row = Kontact_data
        End Get
        Set(ByVal value As Object())
            Kontact_data = value
        End Set
    End Property
 
Private Sub dlg_Kontact_my_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.txtName.Text = Kontact_data(1)
        Me.txtFamily.Text = Kontact_data(2)
        Me.txtPsevdo.Text = Kontact_data(3)
        Me.mtxt_work.Text = Kontact_data(4)
        Me.mtxt_home.Text = Kontact_data(5)
        Me.mtxt_mobile.Text = Kontact_data(6)
        Me.mtxt_fax.Text = Kontact_data(7)
        Me.txtMails.Text = Kontact_data(8)
        Me.txtWorkAddress.Text = Kontact_data(9)
        Me.txtHomeAddress.Text = Kontact_data(10)
        Me.txtOther.Text = Kontact_data(11)
    End Sub
End Class

  Private Sub Kontact_data_Fill()
        On Error Resume Next
        Me.Kontact_data(0) = frm_Main_my_2.tvwStructure.SelectedNode.FullPath & "\" & Me.txtPsevdo.Text
        MsgBox("430.01 Me.Kontact_data(0)=" + vbCrLf + Me.Kontact_data(0)) ' выдано
        ' старый текст, подлежащий редактированию, т.е. ПЕРЕД РЕДАКТИРОВАНИЕМ.
 
        Me.Kontact_data(1) = Me.txtName.Text
                .   .   .   .   .   .   .   .
        Me.Kontact_data_edit(0) = frm_Main_my_2.tvwStructure.SelectedNode.Parent.FullPath & "\" & Me.txtPsevdo.Text
        MsgBox("430.02 Me.Kontact_data_edit(0) = " + vbCrLf + """" + Me.Kontact_data_edit(0) + """")
        ' пусто выдано. В примере же выводит новый текст подузла
 
        Me.Kontact_data_edit(1) = Me.txtName.Text
        Me.Kontact_data_edit(2) = Me.txtFamily.Text
        .   .   .   .   .   .   .   .
        Me.Kontact_data_edit(10) = Me.txtHomeAddress.Text
        Me.Kontact_data_edit(11) = Me.txtOther.Text
 
        '++- НЕДОПУСТИМО! Me.Kontact_data_edit(0) = Me.txtPsevdo.Text ' Je added 06.10.2013 at 17:40
        ' поменялся текст не подузла, а коневого узла, так, что НЕ ПОДХОДИТ!
 
        '+ нижеидущая функция выполнилась 05.10.2013 at 13:23 
        '+ MsgBox("401c.END выполнния процедуры" + vbCrLf + "Private Sub Kontact_data_Fill()")
    End Sub