SendKeys.SendWait("^a")
Delay(2) : SendKeys.SendWait("^c")
Delay(3)
SendKeys.Flush()
If Clipboard.ContainsText() Then
File.WriteAllText("c:\A.txt", Clipboard.GetText()) : Clipboard.Clear()
End If