[atefkhalf2004]

شكرا للجميع
وللعلم  وجدت هذه الدالة ونفعت  وادت الغرض 
واضعها للافادة

 Dim x As New Dictionary(Of String, String)
        x.Add("1", "one")
        x.Add("2", "two")
        x.Add("3", "three")
       
        'MsgBox("Value of 2:" & x.Item("2"))

---

بالنسبة  للقراءة من ملف نصي
 Dim lines() As String = IO.File.ReadAllLines(Application.StartupPath & "\aaa.text")

        Dim line As String
كيف اجعله يظهر اسم المحافظة  بمعلومية الرقم
02   القاهرة
03   الاسكندرية
شكرا