Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Hello World")

        EE29061370()

    End Sub

​

    public sub EE29061370()

        dim s as string = "a1.b1.c1.d1.e1.f1.g1.h1.i1.j1.k1.l1.m1.n1.p1.q1.r1.s1.t1.u1.v1.w1."

        dim s1, e1, s2, e2 as integer

        dim s11 as string = "a1"

        dim s12 as string = "n1"

        dim s21 as string = "t1"

        dim s22 as string = "w1"

        s1 = s.IndexOf(s11)

        e1 = s.IndexOf(s12)

        s2 = s.IndexOf(s21)

        e2 = s.IndexOf(s22)

        dim result as string = s.Substring(s1, e1 - s1 + s12.Length) & " - " & s.Substring(s2, e2 - s2 + s22.Length)

        console.write(result)

    end sub

End Module

​