Imports Microsoft.VisualBasic
Public Module stringManipulations
Dim TestString As String = ""
Console.WriteLine("Type any String")
TestString = Console.ReadLine()
Dim midName As String = Mid(TestString, 2, 3)
Console.WriteLine(midName)
Dim leftName As String = Left(TestString, 3)
Console.WriteLine(leftName)
Dim rightName As String = Right(TestString, 3)
Console.WriteLine(rightName)
Dim lenName As Integer = Len(TestString)
Console.WriteLine(lenName)