Write to notepad and keep it open on the desktop

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE

Public Sub DPTN(ByVal Text As String, hWnd As Long)
    Dim EditHwnd As Long
    Dim CurrentWindowText As String
    Dim lngLength As Long
    
    EditHwnd = FindWindowEx(hWnd, 0, "Edit", vbNullString)
    lngLength = SendMessage(EditHwnd, WM_GETTEXTLENGTH, ByVal 0, ByVal 0)
    CurrentWindowText = Space(lngLength)
    SendMessage EditHwnd, WM_GETTEXT, ByVal lngLength + 1, ByVal CurrentWindowText
    Text = CurrentWindowText & Text & vbCrLf
    SendMessage EditHwnd, WM_SETTEXT, ByVal Len(Text) + 1, ByVal Text
End Sub