Imports System
Public Class MainClass
Shared Sub Main()
'Declare variable
Dim strData As String
strData = "string value"
'Display the first three characters
System.Console.WriteLine(strData.Substring(0, 3))
'Display the middle three characters
System.Console.WriteLine(strData.Substring(3, 3))
'Display the last three characters
System.Console.WriteLine(strData.Substring(strData.Length - 3))
End Sub
End Class