Public Sub New()
        _myTapi = New TAPI
        _myTapi.Initialize()
        _myAddresses = CType(_myTapi.Addresses, ITCollection)
 
        Dim Index As Integer
 
        For Index = 1 To _myAddresses.Count
            Dim Def As ITAddress
            Def = CType(_myAddresses.Item(Index), ITAddress)
            ReDim Preserve _Devices(Index) : _Devices(Index) = Def.AddressName
        Next
    End Sub
 
 
 
    Public Sub MakeCall(ByVal Number As String, ByVal Text As String)
 
        Dim Index As Integer
        Dim Found As Boolean = False
        Dim oId As Object, id As IntPtr
        Dim x, d As Integer
 
        For Index = 1 To _myAddresses.Count
            Dim Def As ITAddress
            Def = CType(_myAddresses.Item(Index), ITAddress)
            If Def.AddressName = _useDevice Then Found = True : _myAddress = _
              Def : Exit For
        Next
 
        If Found = True Then
            _myCall = _myAddress.CreateCall(Number, _
              TapiConstants.LINEADDRESSTYPE_PHONENUMBER, _
              TapiConstants.TAPIMEDIATYPE_DATAMODEM)
            _myCall.Connect(True)
 
            oId = CType(_myCall, ITLegacyCallMediaControl2).GetIDAsVariant( _
              "comm/datamodem")
            id = Marshal.ReadIntPtr(oId, 0)
            hComm = CType(id, Integer)
 
            'Test
            '############
 
            Write(vbCr)
            x = Read(0)
            MsgBox(bytRecvBufARR.Length.ToString)
 
        End If
    End Sub
 
 
    Private Function Read(ByVal ReadSize As Integer) As Integer
        Dim iReadChars, iResult, d As Integer
        If ReadSize = 0 Then ReadSize = 512 'wenn keine Bytes zu lesen Standard 
        ' Size 
        ReDim bytRecvBufARR(ReadSize - 1)
        iResult = ReadFile(hComm, bytRecvBufARR, ReadSize, iReadChars, 0)
        If iResult = 0 Then
        Else
            Return (iReadChars) 'Anzahl Zeichen gelesen 
        End If
    End Function
 
    Private Sub Write(ByVal Buffer As String)
        Dim iBytesWritten, iResult As Integer
        Dim ascBuffer As New System.Text.ASCIIEncoding()
        Try
            'PurgeComm(hComm, PURGE_RXCLEAR Or PURGE_TXCLEAR) 'löschen der _
              Puffer 
            Dim btStream() As Byte = ascBuffer.GetBytes(Buffer)
            iResult = WriteFile(hComm, btStream, btStream.Length, _
              iBytesWritten, 0)
            If iResult = 0 Then
                Throw New ApplicationException("Schreib Fehler - Bytes" & _
                  "geschrieben. " & _
                    iBytesWritten.ToString & " .. " & Buffer.Length.ToString)
            End If
        Catch Ex As Exception
            MsgBox(Ex.Message)
        End Try
    End Sub

VB RULEZ !