[atefkhalf2004]

السيد الفاضل
تم استخدام الدالة  ولكن يوجد خطأ  ولم اتوصل اليه
 Dim result As String = CType(Nothing, String)
        If Not New Dictionary(Of String, String)() From {{"02", "Cairo"}, {"03", "Alexandria"}}.TryGetValue(code, result) Then
            result = ""
        End If
        Return result