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