Imports System

Public Module Module1

    Public Sub Main()

        dim x as string ="welcome to my class"

        dim y as string = x.Substring(0,7)

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

    End Sub

End Module