Obtener el valor de un textbox desde otra aplicación

[Aioros-jms]

Listo ya quedo, muchas gracias!!!!
Y quedo de esta manera

Código:

    Const WM_GETTEXT = &HD


    Dim lHandle As Long
    lHandle = FindWindow(vbNullString, "OtherApplicationTitled")
    lHandle = FindWindowEx(lHandle, 0, "ThunderRT6TextBox", vbNullString)
    nombre = Space$(50)
    tam = SendMessage(lHandle, WM_GETTEXT,50, nombre)
    Text2.Text = Left(nombre, tam)

Bien que tenga un buen día!!!

Saludos!!