Excel VBA 1行ずつテキストを読み込む

Option Explicit

Sub ReadTextFileLineByLine()
    Dim filePath As String
    Dim fileNumber As Integer
    Dim textLine As String
    
    ' テキストファイルのパス
    filePath = "C:\Users\User\Desktop\DataCsv\テキスト.txt"
    
    ' ファイルを開く
    fileNumber = FreeFile
    Open filePath For Input As fileNumber
    
    ' ファイルから1行ずつ読み込む
    Do Until EOF(fileNumber)
        Line Input #fileNumber, textLine
        MsgBox textLine
    Loop
    
    ' ファイルを閉じる
    Close fileNumber
End Sub