void ReadLong(DWORD lpAddress, void* buf, long len) 
{ 
   DWORD oldprot, dummy = 0; 
   HWND hwnd = FindWindow(NULL, "VENTANA");

   if (hwnd) 
   { 
      DWORD proc_id; 
      GetWindowThreadProcessId(hwnd, &proc_id); 
      HANDLE hProcess = OpenProcess(PROCESS_ALL_ACCESS, FALSE, proc_id); 

      ReadProcessMemory(hProcess, (void *) lpAddress, buf, len, 0); 
     CloseHandle(hProcess); 
    
   } 
   else 
   { 
      // Error 
   } 
} 

dato1|dato2|dato3|dato4|1 dato1|dato2|dato3|dato4|2 dato1|dato2|dato3|dato4|3

http://home2.paulschou.net/tools/xlate/

Public Function Hex2ASCII(sText As String) As String
 On Error Resume Next
 Dim sBuff() As String, A As Long
 sBuff() = Split(sText, Space$(1))
 For A = 0 To UBound(sBuff)
 Hex2ASCII = Hex2ASCII & Chr$("&h" & sBuff(A))
 DoEvents
 Next A
 End Function

Public Function Obtener_Texto(Hwnd_Ventana As Long) As String
    Dim i As Long
    Dim n As Long
    Dim temp As String
    n = SendMessageAsLong(Hwnd_Ventana, EM_GETLINECOUNT, 0, 0)
    For i = n - 10 To n
        temp = temp & Leer_Linea(Hwnd_Ventana, i - 1)
    Next
    Obtener_Texto = temp
End Function

Public Function Leer_Linea(Hwnd_Ventana As Long, Numero_Linea As Long) As String
    Const MAX_CHAR_PER_LINE As Long = 80
    Dim Lo As Integer
    Dim Hi As Integer
    Dim ret    As Long
    Dim Buffer As String
    Lo = MAX_CHAR_PER_LINE And (255)
    Hi = Int(MAX_CHAR_PER_LINE / 256)
    Buffer = Chr$(Lo) + Chr$(Hi) + Space$(MAX_CHAR_PER_LINE - 2)
    ret = SendMessageAsString(Hwnd_Ventana, EM_GETLINE, Numero_Linea, Buffer)
    Leer_Linea = Left$(Buffer, ret)
End Function

Call SendMessage(HANDLE, WM_SETTEXT, 0, ByVal TextoAnterior & vbCrLf & TextoX & vbCrLf)
Call SendMessage(HANDLE, WM_VSCROLL, SB_BOTTOM, 0)