Sub getDialedNumber As String
Dim callsLog As CallLog
Dim call As CallItem
Dim list1 As List
Dim dialedNumber As String
list1=callsLog.GetAll(1)
call=list1.Get(0)
If call.CallType=call.TYPE_OUTGOING Then
dialedNumber=call.CachedName & " - " & call.Number
End If
Return dialedNumber
End Sub