Retrieving Text from an external app?

[moeur]

There are some problems with your EditStreamCallback Function
The second parameter you have defined as ByVal Byte.
It is a long pointer to a byte array so that you should either define it as
ByVal pbBuff as Long
or
pbBuff() as Byte
If you choose the second option you can form your string like this

dim i as integer, myStr as String
myStr=""
for i=0 to cb-1
  myStr = myStr & chr(pbBuff(i))
next i

Try that

[penagate]

Thanks, moeur, at least you know what you're doing

Made a couple of mistakes in my code (obviously)

In the form code

    If (udtStreamInfo.dwError) Then
        MsgBox "Error ID " & udtStreamInfo.dwError & " occured", vbExclamation
    
      Else  ' If there was no error,
        ' copy the contents of the buffer into
        ' the RTF Edit control
        rtfText.TextRTF = gstrBuffer
    End If

should be

    If (udtStreamInfo.dwError) Then
        MsgBox "Error ID " & udtStreamInfo.dwError & " occured", vbExclamation
    End If

and in the module code, as moeur pointed out

Public Function EditStreamCallBack(ByVal dwCookie As Long, _
                                         pbBuff() As Byte, _
                                   ByVal cb As Long, _
                                   ByRef pcb As Long) _
As Long    '{

    ' pbBuff = pointer to byte array (thanks moeur :)
    Dim strBuffer       As String
    Dim strRTFText      As String
    Dim i               As Long
    
    ' Get the string contents
    For i = 0 To (cb - 1)
        strBuffer = strBuffer & Chr$(pbBuff(i))
    Next i
    
    ' Set the no. of bytes received
    pcb = pcb + cb
    
    ' Add buffer to text box
    strRTFText = ghTextBox.TextRTF & strBuffer
    ghTextBox.TextRTF = strRTFText
    
    ' Return zero to allow continuation of callback
    EditStreamCallBack = 0
    
' }
End Function

hope this gets a bit further