vba - Sendkeys はテキスト ファイルから最初の文字のみを書き込みます

Question

テキストファイルからすべてを書き込もうとしていますが、最初の文字しか書き込んでいません。

これが私のコードです：

Sub Main
    Dim TextFile As Integer
    Dim FilePath As String
    Dim FileContent As String

    'File Path of Text File
      FilePath = "C:\Users\Username\Desktop\Clipboard.txt"

    'Determine the next file number available for use by the FileOpen function
      TextFile = FreeFile

    'Open the text file
      Open FilePath For Input As TextFile

    'Store file content inside a variable
      FileContent = Input(LOF(TextFile), TextFile)

    'Report Out Text File Contents
      SendKeys FileContent

    'Close Text File
      Close TextFile

End Sub

私もこれを試しましたが、同様に最初の文字のみを書きます:

Sub Main
    Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Dim objTextStream

    Const strFileName = "C:\Users\Username\Desktop\Clipboard.txt"
    Const fsoForReading = 1

    If objFSO.FileExists("C:\Users\Username\Desktop\Clipboard.txt") Then
        'The file exists, so open it and output its contents
        Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
        SendKeys objTextStream.ReadAll
        objTextStream.close
        Set objTextStream = Nothing
    Else
        'The file did not exist
        SendKeys "was not found."
    End If

    'Clean up
    Set objFSO = Nothing
End Sub

助けてください。ありがとう！