Imports System

Public Module Module1

    Public Sub Main()

        Dim aString As String = "A String"

        Dim bString As String 

        bString = aString.Substring(2,6)

        Console.WriteLine(bString)

    End Sub

End Module