VBA Macro - Taking Screen shot of mainframes appln and pasting it in Word -need guidanance

Hi All,

i have a requirement wherin i should invoke a macro which should take screen print of mainframes application (which is simultaneously running) and should paste that screen print in MS Word. i used the below code, its not working properly...Please help

'Piece of code which i have used in main programes which perfomes the action of taking screen print 

            Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
            Call take_screenshot(appwd)


'Function which pastes the screenprint that was taken into the word document
Sub take_screenshot(appwd)

appwd.Visible = True
Application.ScreenUpdating = True
     
   With appwd
            With .Selection
            
                'Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
                .Paste
                          
            End With
        End With
        appwd.Selection.TypeText Chr(10)
   
    appwd.Selection.EndKey
    appwd.Selection.InsertNewPage
End Sub