Excelvba從文件中逐行讀取並寫入excel中

Sub 読み込む()
    Dim result As Long
    Dim dialog As FileDialog
    Set dialog = Application.FileDialog(msoFileDialogOpen)
    dialog.ButtonName = "開く"
    result = dialog.Show
    If result = -1 Then
        Cells(1, 5).Value = "ファイルが選択されました。" & dialog.SelectedItems.Item(1)
        Open dialog.SelectedItems.Item(1) For Input As #1
        Dim inputstr As String
        Dim counter As Integer
        counter = 2
        Do While Not EOF(1)
            Input #1, inputstr
            Cells(counter, 2).Value = inputstr
            counter = counter + 1
       Loop
       Close #1
    End If
End Sub