[Roger]

Rui este es un programa para enviar la captura de panta a un archivo

Option Explicit  
       
     'Api para generar un evento de tecla, en este caso Print Screen  
     ''''''''''''''''''''''''''''''''''''''''''''''''''''''  
    Private Declare Sub keybd_event _  
        Lib "user32" ( _  
            ByVal bVk As Byte, _  
            ByVal bScan As Byte, _  
            ByVal dwFlags As Long, _  
            ByVal dwExtraInfo As Long)  
      
    'recibe la ruta donde crear el BMP  
    ''''''''''''''''''''''''''''''''''''''''''''''''''  
    Private Sub Capturar_Guardar(Path As String)  
          
        ' borra el portapapeles  
        Clipboard.Clear  
          
        ' Manda la pulsación de teclas para capturar la imagen de la pantalla  
        Call keybd_event(44, 2, 0, 0)  
          
        DoEvents  
        ' Si el formato del clipboard es un bitmap  
        If Clipboard.GetFormat(vbCFBitmap) Then  
          
            'Guardamos la imagen en disco  
            SavePicture Clipboard.GetData(vbCFBitmap), Path  
            MsgBox " Captura generada en: " & Path, vbInformation  
            Picture1.Picture = Clipboard.GetData(vbCFBitmap)  
        Else  
            MsgBox " Error ", vbCritical  
        End If  
      
    End Sub  
      
    Private Sub Command1_Click()  
        Call Capturar_Guardar("c:\pantalla.bmp")  
    End Sub  
      
    Private Sub Form_Load()  
        Command1.Caption = " Capturar pantalla "  
    End Sub

con este ya puedo buscar un programa ocr que lo lee y convierta en txt
inclusive se puede localizar la captura de pantalla
pero este es un primer paso