Android Question ContactsUtils

Sub FillContacts
    Dim wmCU As wmContactsUtils
    wmCU.Initialize
    Dim firstName, lastName, displayName As String
    For Each c As cuContact In wmCU.GetAllContactsThunderbird(True)
'        displayName=?
'        firstName=?
'        lastName=?
    Next
End Sub

Sub FillContacts
    Dim wmCU As wmContactsUtils
    wmCU.Initialize
    Dim firstName, lastName, displayName As String
    For Each cd As cuContactDetailsThunderbird In wmCU.GetAllContactsThunderbird(True)
        displayName=cd.displayName
        lastName=cd.lastName
        firstName=cd.firstName
    Next
End Sub

Sub FillContacts

    Dim wmCU As wmContactsUtils
    wmCU.Initialize
    Dim firstName, lastName, displayName As String
    For Each cd As cuContact In wmCU.FindAllContacts(True)
        Dim name As cuContactName = wmCU.GetDetailedName(cd.Id)
        displayName=cd.displayName
        lastName=name.FamilyName
        firstName=name.GivenName
    Next

End Sub