Android Question Calls from specifed number

Dim Calls As List
Dim CallLog As CallLog
Calls = CallLog.GetAll(0) 'Get the last 10 calls
For Each c As CallItem In Calls.Size
    If c.Number = "YOUR SPECIFIC NUMBER" Then
        Dim callType, name As String
        Select c.CallType
            Case c.TYPE_INCOMING
                callType="Incoming"
            Case c.TYPE_MISSED
                callType = "Missed"
            Case c.TYPE_OUTGOING
                callType = "Outgoing"
        End Select
        name = c.CachedName
        If name = "" Then name = "N/A"
        Log("Number=" & c.Number & ", Name=" & name _
    & ", Type=" & callType & ", Duration=" & c.Duration & "Sec, Date=" & DateTime.Date(c.Date))
    End If
Next