Dim tempString  As String
Dim file_string As String
    
    Open file For Input As #1
        Input #1, file_string
        For I = 1 To Len(file_string)
            If Mid(file_string, I, 1) = "\" Then
                tempString = tempString & vbNewLine
            Else
                tempString = tempString & Mid(file_string, I, 1)
            End If
            
        Next I
        
    Close #1