Module Module1
Sub Main()
Dim s As String = "basic is a very nice programming language"
Dim part As String
part = s.Substring(0, 8) ' from first char 0 copy 8 chars
Console.WriteLine(part)
part = s.Substring(21, 29 - 21) ' from char (0 to 21) 22 copy (29 - 21) 8 chars
Console.WriteLine(part)
part = s.Substring(21, 8) ' same as above
Console.WriteLine(part)
End Sub
End Module
'run:
'
'basic is
'programm
'programm