Sub qwe1()
Dim MyName, MyPath, MyName2, MyRow As String
MyPath = ActiveWorkbook.Path & "\"
MyName = Dir(MyPath)
MyName2 = Replace(MyName, ".raw", "_fix.raw")
Do While MyName <> ""
    If MyName = "fix.xlsm" Then GoTo next_
    
    Open MyPath & MyName For Input As #1
    Open MyPath & MyName2 For Output As #2
  
    Do Until EOF(1)
        Line Input #1, l
        a = Split(l, vbLf)
        For i = 0 To UBound(a)
            Print #2, a(i)
        Next i
    Loop
    Close #1
    Close #2

next_:
    MyName = Dir
Loop
End Sub