i found the solution
i just declare new class
Public Class PhoneNumber
Public Property Uri() As String
Get
Return m_Uri
End Get
Set(value As String)
m_Uri = value
End Set
End Property
Private m_Uri As String
Public Property T() As String
Get
Return m_T
End Get
Set(value As String)
m_T = value
End Set
End Property
Private m_T As String
End Class
and i add a new property "GDPhoneNumber" in the class "Contact"
Public Property GDPhoneNumber() As List(Of PhoneNumber)
Get
Return m_GDPhoneNumber
End Get
Set(value As List(Of PhoneNumber))
m_GDPhoneNumber = value
End Set
End Property
Private m_GDPhoneNumber As List(Of PhoneNumber)
finally i added these 2 lines to retrieve the phone number
Dim Phone1 As String = If(contact.GDPhoneNumber Is Nothing, "", contact.GDPhoneNumber(0).Uri)
Dim Phone2 As String = If(contact.GDPhoneNumber Is Nothing, "", contact.GDPhoneNumber(0).T)