E pa sad ti treba da negde spakujes unete podatke.
Mozes ih stavljati u neki tekstualni fajl - sto je potpuno neprakticno i prakticno neupotrebljivo kada se poveca kolicina unetih podataka ili da kreiras neku bazu u koju ces smestati kontakte i ostalo sto zelis da uneses.
Najednostavnije ti je po mom misljenju da kreiras malu access bazu. Kada to uradis, javi se pa cemo dalje...

Normalno mnogo je lakse raditi sa bazom ali za male kolicine podataka, najbolje je telefonski imenik cuvati u txt fajlu(pretpostavlja se da se ne zeli unositi telefonski imenik cele Srbije). Za pocetnika je lako da iz Notepada unosi ime, prezime grad, broj telefona itd ali se preporucuje da se taj tekstualni fajl pripremi tako da ako pocetnik ne u me da napravi ispravan VB program taj tekstualni fajl bez problema uvuce u access. Za to bi trebao stavljati najcesce upotrebljavan separator tacka zarez izmedju reci. Znaci zapis bi morao biti ovog formata da bi se veoma lako mogao kucati u Notepadu i lako uvuci u access ili ocitati sa open iz VB.
Oblik je:

prezime;ime;datum rodjenja;mesto; broj licne karte; broj telefona; ...;

Ukoliko budeš radio sa bazom podataka, ovaj primjer ti može pomoći.

Dim dbAdresar As Database
Dim rsAdresa As Recordset
Dim red, sql As String
Dim k As Integer
Dim Uslov As String
Dim Prezime, Ime, Naziv, Adresa, Mjesto, Telefon, Mobitel As String
Dim a As String

Set dbAdresar = OpenDatabase(App.Path & "\Adresar.mdb")

With MSFlexGrid1
.Cols = 12
.TextMatrix(0, 0) = "RB"
.TextMatrix(0, 1) = "Prezime"
.TextMatrix(0, 2) = "Ime"
.TextMatrix(0, 3) = "Datum kontakta"
.TextMatrix(0, 4) = "Telefon"
.TextMatrix(0, 5) = "Mobitel"
.TextMatrix(0, 6) = "Email"
.TextMatrix(0, 7) = "Napomena"
.TextMatrix(0, 8) = "Naziv preduzeća"
.TextMatrix(0, 9) = "Funkcija"
.TextMatrix(0, 10) = "Adresa"
.TextMatrix(0, 11) = "Mjesto"
End With

Uslov = Combo1.ListIndex
Print Uslov
Prezime = Text1.Text
Ime = Text3.Text
Naziv = Text8.Text
Adresa = Text10.Text
Mjesto = Text11.Text
Datum = Text2.Text
Telefon = Text5.Text
Mobitel = Text6.Text
Email = Text7.Text

Select Case Uslov
Case 0
sql = "Select * from [Adre] Where [Prezime]='" & Prezime & "'"
Data1.RecordSource = "Select * from [Adre] Where [Prezime]='" & Prezime & "'"
Data1.Refresh
Set rsAdresa = dbAdresar.OpenRecordset(sql, dbOpenDynaset)
With rsAdresa
k = 0

Do While Not .EOF
k = k + 1


red = !Redni_broj & vbTab & !Prezime & vbTab & !Ime & _
vbTab & !Datum & vbTab & !Telefon & vbTab & !Mobitel _
& vbTab & !Email & vbTab & !Napomena & vbTab & !Naziv _
& vbTab & !Funkcija & vbTab & !Adresa & vbTab & !Mjesto
MSFlexGrid1.Cols = 12
MSFlexGrid1.AddItem red, k
.MoveNext

Loop
Print k
If k = 0 Then
a = MsgBox("Traženi podatak nije pronađen", vbOKOnly, "OBAVJEST")
End If
End With
End select