Private Sub phoneSession_OnPhoneCallAdded(ByVal phoneCall As InfraCallCenterClientFacade2.IPhoneCall, ByVal callID As Long, ByVal RequestID As String, ByVal requestName As String, ByVal requestAddress As String, ByVal CustomerID As String, ByVal queueID As String, ByVal queueName As String, ByVal state As InfraCallCenterClientFacade2.PHONE_CALL_STATE, ByVal state_duration As Long, ByVal connected_duration As Long, ByVal parties_count As Long, ByVal parties_name As String, ByVal parties_numbers As String, ByVal call_type As InfraCallCenterClientFacade2.PHONE_CALL_TYPE, ByVal operations As Long)
    If Not IsNull(phoneCall.ConnectedNumber) Then
        writeNum phoneCall
        MsgBox Len(phoneCall.ConnectedNumber)
    End If
End Sub

Private Sub phoneSession_OnPhoneCallAdded(ByVal phoneCall As InfraCallCenterClientFacade2.IPhoneCall, ByVal callID As Long, ByVal RequestID As String, ByVal requestName As String, ByVal requestAddress As String, ByVal CustomerID As String, ByVal queueID As String, ByVal queueName As String, ByVal state As InfraCallCenterClientFacade2.PHONE_CALL_STATE, ByVal state_duration As Long, ByVal connected_duration As Long, ByVal parties_count As Long, ByVal parties_name As String, ByVal parties_numbers As String, ByVal call_type As InfraCallCenterClientFacade2.PHONE_CALL_TYPE, ByVal operations As Long)
If Not IsNull(phoneCall.ConnectedNumber) Then
    MsgBox Len(phoneCall.ConnectedNumber)'здесь  0 
    writeNum phoneCall
End If
End Sub

Private Sub writeNum(ByVal phoneCall As InfraCallCenterClientFacade2.IPhoneCall)
Dim i, num, num1 As String
Dim str, s As String
Dim dDate As Date

   num = phoneCall.ConnectedNumber
    MsgBox Len(num) 'а здесь  3 

If (Not IsNull(num)) And (Len(num) >  0 ) Then
    str = num
    fileCreate nout, str
    dDate = Format(Date, "mm/dd/yyyy hh:mm:ss")
    str = CStr(Date) + " " + CStr(Time) + " " + num
    fileCreate nlog, str
    num = Null
End If

End Sub