Sub Macro1()
    ActiveSheet.Paste
End Sub

    AppActivate "Notepad"
    SendKeys "^A", True
    SendKeys "^C", True
    ActiveSheet.Paste

Sub import()

Dim fullPath As String
fullPath = "C:\test.txt"

Open fullPath For Input Access Read As #1
                  'missing some rather important stuff in here
Close #1

End Sub

    Dim MyString, MyNumber
    Open "TESTFILE" For Input As #1    ' Open file for input.
    Do While Not EOF(1)    ' Loop until end of file.
        Input #1, MyString, MyNumber    ' Read data into two variables.
        Debug.Print MyString, MyNumber    ' Print data to the Immediate window.
    Loop
    Close #1    ' Close file.

Sub importDatalist()
    Dim FSO As FileSystemObject
    Dim datalistFSO As file
    Dim FSOStream As TextStream
    
    myPath = "C:\Documents and Settings\datalist.txt"
 
    Set FSO = New FileSystemObject
    Set datalistFSO = FSO.GetFile(myPath)
    Set FSOStream = datalistFSO.OpenAsTextStream(ForReading, TristateUseDefault)
     
    Dim printline As String           'line read in from txt file
    Dim currRow As Integer         'row on which we're printing the imported line from the text file
    currRow = 1
    Dim coordinate As String

    Do While Not FSOStream.AtEndOfStream
        printline = FSOStream.ReadLine
        coordinate = "A" & currRow      'the coordinates of the cell in which we're printing the read-in line
        Range(coordinate).Select
        ActiveCell.FormulaR1C1 = printline
        currRow = currRow + 1            'move to next row
    Loop

End Sub