Chiusura di un eseguibile

[sara81it]

Non ci riesco!!
i public li ho dichiarati nel modilo e poi

Public Function CloseApplication(ByVal WinWord As String) As Boolean
    Dim lHwnd As Long
    Dim lRetVal As Long
    lHwnd = FindWindow(vbNullString, sAppCaption)
    If lHwnd <> 0 Then
        lRetVal = PostMessage(lHwnd, WM_CLOSE, 0&, 0&)
    End If
End Function

e poi all'interno della roputine della stampa dopo il closeDocument ho messo una call CloseApplication