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(y) 

    End Sub

End Module