Console.WriteLine("Hello World")
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 result as string = s.Substring(s1, e1 - s1 + s12.Length) & " - " & s.Substring(s2, e2 - s2 + s22.Length)