Ввести последовательно из текстового файла три строки s, s1, s2 - VB

Формулировка задачи:

Прошу помочь с данной задачей: Ввести последовательно из текстового файла три строки s, s1, s2. Получить новую, записав в нее символы находящиеся в строке s между подстроками s1 s2(их первыми вхождениями)если в исходной s нет совпадений с s1, s2 то вывести сообщение "Нет строки". Новую строку добавить в текстовый файл.

Решение задачи: «Ввести последовательно из текстового файла три строки s, s1, s2»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Sub Main()
    Dim S As String, S1 As String, S2 As String
    Dim N As Integer, N1 As Integer
    Open App.Path & "Text.txt" For Input As #1
        Input #1, S
        Input #1, S1
        Input #1, S2
    Close #1
    N = InStr(S, S1)
    If N = 0 Then
        Call MsgBox("ГЌГҐГІ Г±Г®ГўГЇГ*Г¤ГҐГ*ГЁГ© Г± '" & S1 & "'")
        Exit Sub
    Else
        N = N + Len(S1)
    End If
    N1 = InStr(S, S2)
    If N = 0 Then
        Call MsgBox("ГЌГҐГІ Г±Г®ГўГЇГ*Г¤ГҐГ*ГЁГ© Г± '" & S2 & "'")
        Exit Sub
    Else
        N1 = N1 - N
    End If
    S = Mid(S, N, N1)
    Call MsgBox(S)
    Open App.Path & "Text.txt" For Append As #1
        Print #1, S
    Close #1
End Sub
                        