vba linux换行符

Sub ReadFileAndReplaceNewlines()
    Dim fileNum As Integer
    Dim text As String
    Dim newText As String
    
    fileNum = FreeFile
    Open "path/to/your/file.txt" For Input As #fileNum
    
    Do Until EOF(fileNum)
        Line Input #fileNum, text
        newText = newText & Replace(text, Chr(13) & Chr(10), vbLf)
    Loop
    
    Close #fileNum
    
    ' 现在newText中的换行符已经被替换为Linux格式的LF
    MsgBox newText
End Sub

Sub WriteFileWithLinuxNewlines()
    Dim fileNum As Integer
    Dim text As String
    
    text = "Line 1" & vbLf & "Line 2" & vbLf & "Line 3"
    
    fileNum = FreeFile
    Open "path/to/your/newfile.txt" For Output As #fileNum
    
    Print #fileNum, text
    
    Close #fileNum
End Sub