Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim S as string

        S = "Apple,PineApple-Pen-,"

        console.writeline(s.substring(0, 5)& s.substring(15, 4)&s.substring(5,14))

        console.writeline(s.substring(16,4)&s.substring(6,10)&s.substring(0,5)&s.substring(15,4)&s.substring(6,9)&s.substring(15.4))

        console.writeline(s.substring(16,4)&s.substring(6,10)&s.substring(0,5)&s.substring(15,4)&s.substring(6,9)&s.substring(15.4))

    End Sub

End Module

​