Imports System

Public Module Module1

    Public Sub Main()

        Dim x as string= "Caty is my pet name"

        Dim y as string= x.Substring(0,6)

        Console.WriteLine("The substring is {0}",y)

    End Sub

End Module