Dim file_string As String
Dim found_slash As Boolean
Open "C:\Documents and Settings\Alex\My Documents\HTMLEditor\HTMLEditor\AppData\untitled.html" For Input As #1
Do While Not EOF(1)
    Input #1, file_string
    For i = 1 To Len(file_string)
    If Mid(file_string, i, 1) = "\" Then
        file_string = file_string + vbclrf
    End If
    Next i
    txtCode.Text = txtCode.Text & file_string
Loop
Close #1