VB.Net Notepad açıp kaydetmeden yazı yazma

        Process.Start("notepad.exe")
        Dim found As Boolean = False
        Do Until found = True
            System.Threading.Thread.Sleep(100)
            For Each p As Process In Process.GetProcesses
                If p.ProcessName = "notepad" Then
                    found = True
                End If
            Next
        Loop
        SendKeys.Send("Satır1" & Environment.NewLine & "Satır2")