کمک

[aryan00]

سلام دوستان
من دارم یک برنامه دفتر تلفن مینویسم.که تقریبا به پایان رسیده ولی تو این دو مورد گیر کردم که اگه شما دوستان مرا راهنمایی کنید ممنون میشوم.یک کلیدی به نام ثیت اطلاعات داشته باشه که با زدن این کلید متن تکس 1 رو تو درایو ذخیره کنه.و کلیدی به عنوان سرچ بگذارم که با نوشتن اسم طرف (شماره تلفن) طرف در تکس 2 نمایش داده بشه.
برنامه خودم:
کلید برای ذخیره
Private Sub c4_Click()
Open "asd.txt" For Append As #1
Write #1, t1.Text, T2.Text
Close #1
End Sub

کلید برای سرچ
Open "asd.txt" For Input As #1
Line Input #1, l1
Close #1
End If
با تشکر از شما عزیزان......