Imports System

Public Module Module1

    Public Sub Main()

    Dim s as string = ""

    s="ApplePineapplepen-,"

    Console.writeline(s.substring(0,5) & s(17)&s.substring(14,3))

        Console.writeline(s.substring(5,9) & s(17)& s(5) & s.substring(15,2))

        Console.writeline(s(5)&s.substring(15,2) & s(17) & s.substring(5,9) & s(17) & s.substring(0,5) & s(17) & s(5)&s.substring(15,2))

    End Sub

End Module