Dim s As String = "053698625413586471259632148752369874125698" Dim i As Integer = s.Indexof("698") Dim l As Integer Do While i >= 0 l = math.min(4,s.length - i) output.show(s.substring(i,l)) If i+ l < s.length - 3 s = s.substring(i +l) i = s.Indexof("698") Else Exit Do End If Loop