Obtener Texto de Ventana Externas

[Keyenight]

Bueno he estado trantando de obtener el texto de ventanas externas estoy intentando con el notepad, de la siguiente manera pero dice que se ha probocado un desbordamiento no entiendo cual es el error?

Código vb:

If isRuning("notepad") Then
            Dim notepad As ArrayList = New ArrayList(Process.GetProcessesByName("notepad"))
            For Each i As Process In notepad
                Dim NotepadHandle As Long = FindWindow(vbNullString, i.MainWindowTitle)
                Dim EditHandle As Long = FindWindowEx(NotepadHandle, 0, "Edit", vbNullString)
                RichTextBox1.Text = SendMessage(EditHandle, &HC4, 1, Nothing)
            Next
        End If
 

Que está mal?, Gracias