ISProvider.CellPhone

Example

Display the provider's mobile phone number, if any.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter

aFilter.Category = 2 'pcProvider  

set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = aMessage & vbNewLine &_
  "The number of the providers is " & aProviders.Count

aMessage = aMessage & vbNewLine &_
  "Full Name:" & vbTab & "Cell Phone:"
for each aProvider in aProviders 
  aMessage = aMessage & vbNewLine &_
    aProvider.FullName & vbTab &_
    aProvider.CellPhone
next

Profile.MsgBox (aMessage)