Matrice di Variabile aggiungi

Ciao a tutti sono un neofita del linguaggio macchina, nel tempo libero cerco di apprendere qualcosina e fare qualche banale Applicazione.
In questo momento sto cercando di realizzare una rubrica telefonica, con all' interno due rubriche Form1 e Form2 che sarebbero rubrica dell'offerta riservata al posto di lavoro e una personale.
Il punto dove sto trovando problemi a scrivere quello che vorrei fare e chiedo aiuto è il seguente:

Cercherò di rendere comprensibile sintetizzando l'aiuto richiesto:
ho dichiarato le seguenti variabili
Dim cognome() As String
Dim nome() As String
Dim numeri(nome() As String
Ipotiziamo che in fase di programmazione sia io ad inserire 15 variabili per tutte e 3 le variabili, ma successivamente tramite un Button dedicato in fase di "esecuzione dell'App" vorrei accedere con insert key alla visualizzazione di 3 TextBox, dove andrò ad inserire per ognuna TextBox.Text le 3 variabili da aggiungere per poi cliccare nuovamente su un Button dedicato che dovrebbe servire ad inserire (memorizzare,salvare) nelle variabili dichiarate quanto scritto (cioè cognome,nome,numeri), guardando l'ultima inserita e aggiungendo un numero (cognome.last + 1) ad esempio il contenuto del TextBox1.Text sarà cognome(16) mentre gli altri due saranno nome(16) e numeri(16)
Fatto questo dovrei aver aggiunto alle Matrici di variabili presenti, delle nuove variabili permanenti, cioè se chiudo ed esco dall'App al successivo riavvio dovrei trovarmi aggiunte le variabili e se faccio una ricerca mi troverò anche il "nome cognome e numero del 15".
Grazie in anticipo dell'aiuto fornito

 Dim cognome() As String 'nell'esempio ci sono solo 15 cognomi in tutto ma vorrei aggiungerne un bel po' .....
    Dim nome() As String
    Dim numeri() As String
    Dim la As Object
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        MsgBox("Buongiorno." & vbCrLf & _
              "Per una consultazione telefonica" & vbCrLf &
              "Scriva il cognome dell'interessato nella parte richiesta, al termine prema con il tasto sx del mouse a centro del telefono.", MsgBoxStyle.Information)
        If TextBox1.Text = "" Then
            TextBox1.Text = "Cognome"
        End If
    End Sub

    Private Sub Label2_Click(sender As Object, e As System.EventArgs) Handles Label2.Click
        Timer1.Start()
        ProgressBar1.Style = ProgressBarStyle.Marquee
        cognome(1) = "ABRATE"
        cognome(2) = "ABBATI"
        cognome(3) = "ACCORTI"
        cognome(4) = "AGRINI"
        cognome(5) = "ACCORTI"
        cognome(6) = "ANTIMO"
        cognome(7) = "ALLUISI"
        cognome(8) = "AROS"
        cognome(9) = "ANGINI"
        cognome(10) = "ANTICO"
        cognome(11) = "AGRAFFA"
        cognome(12) = "SENESI"
        cognome(13) = "ANZIMO"
        cognome(14) = "AROSTIDE"
        ' in questo punto dovrebbero avvenire le aggiunte richieste che sarebbe il contenuto di volta in volta di textbox3.text
        nome(1) = "Ivan"
        nome(2) = "Giovanni"
        nome(3) = "Santino"
        nome(4) = "Alessandro"
        nome(5) = "Francesco"
        nome(6) = "Germano"
        nome(7) = "GIUSEPPE"
        nome(8) = "Salvatore"
        nome(9) = "Daniele"
        nome(10) = "Rosanna"
        nome(11) = "Gaetano"
        nome(12) = "Vincenzo"
        nome(13) = "Antonio"
        nome(14) = "Salvatore"
        nome(15) = TextBox4.Text
        numeri(1) = "339-4079251"
        numeri(2) = "338-4083878"
        numeri(3) = "335-7074367"
        numeri(4) = "334-9076482"
        numeri(5) = "336-1080341"
        numeri(6) = "338-5078367"
        numeri(7) = "336-7074599"
        numeri(8) = "335-5079935"
        numeri(9) = "338-6075122"
        numeri(10) = "338-9079812"
        numeri(11) = "338-7477250"
        numeri(12) = "338-6079868"
        numeri(13) = "338-2052159"
        numeri(14) = "339-4472560"
        numeri(15) = TextBox1.Text()
        If TextBox1.Text = cognome(1) Then
            Label1.Text = numeri(1)
            Label3.Text = cognome(1)
            Label4.Text = nome(1)
        ElseIf TextBox1.Text = cognome(2) Then
            Label1.Text = numeri(2)
            Label3.Text = cognome(2)
            Label4.Text = nome(2)
        ElseIf TextBox1.Text = cognome(3) Then
            MsgBox("Attenzione con questo cognome risultano più persone, la preghiamo d'inserire anche il nome della persona desiderata. ", MsgBoxStyle.Exclamation)
        ElseIf TextBox1.Text = cognome(3) & nome(3) Then
            Label1.Text = numeri(3)
            Label3.Text = cognome(3)
            Label4.Text = nome(3)
        ElseIf TextBox1.Text = cognome(4) Then
            Label1.Text = numeri(4)
            Label3.Text = cognome(4)
            Label4.Text = nome(4)
        ElseIf TextBox1.Text = cognome(5) Then
            MsgBox("Attenzione con questo cognome risultano più persone, la preghiamo d'inserire anche il nome della persona desiderata. ", MsgBoxStyle.Exclamation)
        ElseIf TextBox1.Text = cognome(5) & nome(5) Then
            Label1.Text = numeri(5)
            Label3.Text = cognome(5)
            Label4.Text = nome(5)
        ElseIf TextBox1.Text = cognome(6) Then
            Label1.Text = numeri(6)
            Label3.Text = cognome(6)
            Label4.Text = nome(6)
        ElseIf TextBox1.Text = cognome(7) Then
            Label1.Text = numeri(7)
            Label3.Text = cognome(7)
            Label4.Text = nome(7)
        ElseIf TextBox1.Text = cognome(8) Then
            Label1.Text = numeri(8)
            Label3.Text = cognome(8)
            Label4.Text = nome(8)
        ElseIf TextBox1.Text = cognome(9) Then
            Label1.Text = numeri(9)
            Label3.Text = cognome(9)
            Label4.Text = nome(9)
        ElseIf TextBox1.Text = cognome(10) Then
            Label1.Text = numeri(10)
            Label3.Text = cognome(10)
            Label4.Text = nome(10)
        ElseIf TextBox1.Text = cognome(11) Then
            Label1.Text = numeri(11)
            Label3.Text = cognome(11)
            Label4.Text = nome(11)
        ElseIf TextBox1.Text = cognome(12) Then
            Label1.Text = numeri(12)
            Label3.Text = cognome(12)
            Label4.Text = nome(12)
        ElseIf TextBox1.Text = cognome(13) Then
            Label1.Text = numeri(13)
            Label3.Text = cognome(13)
            Label4.Text = nome(13)
        ElseIf TextBox1.Text = cognome(14) Then
            Label1.Text = numeri(14)
            Label3.Text = cognome(14)
            Label4.Text = nome(14)
        Else
            TextBox1.Text = "Cognome"
            Label1.Text = ""
            Label3.Text = ""
            Label4.Text = ""
        End If

    End Sub
   
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = ""
        Label1.Text = ""
        Label3.Text = ""
        Label4.Text = ""
        ProgressBar1.Style = ProgressBarStyle.Blocks
        If Timer1.Interval = 15000 Then
            Timer1.Stop()
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        TextBox2.Visible = True
        TextBox2.Text = "Key code"
    End Sub
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'Quello che vorrei fare con questo pulsante è semplicemente premendolo prendere la risultante dei TextBox3_Text,TextBox4_Text,TextBox5_Text e aggiungerli definitivamente alle variabili esistenti cognome,nome,numeri dandogli l'ultimo numero utile+1 per poi avere il delete dei 3 TextBox scritti precedentemente.
        'Così facendo dovrei avere la possibilità di aggiungere in rubrica nuovi utenti durante l'esecuzione del programma.
    End Sub

    Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text = "FIAT" Then
            TextBox3.Visible = True
            TextBox4.Visible = True
            TextBox5.Visible = True
            Button3.Visible = True
        End If
    End Sub

    Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged
        Text = cognome.Last + 1
    End Sub

    Private Sub TextBox4_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox4.TextChanged
        Text = nome.Last + 1
    End Sub
    Private Sub TextBox5_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox5.TextChanged
        Text = numeri.Last + 1
    End Sub
End Class