Imports System
Public Class Test
Public Shared Sub Main()
Dim s As String = "abcd"
For i As Integer = 0 To s.Length
For j As Integer = i + 1 To s.Length
Console.Write(s.Substring(i, j - i) & " ")
Next
Next
End Sub
End Class
' run:
'
' a ab abc abcd b bc bcd c cd d
'