Imports System

Public Module Module1

    Public Sub Main()

        dim s as string

        s = "ApplePenPineapple-"

        Console.WriteLine(s.Substring(0,5) & s(17) & s.Substring(5,3))

        Console.WriteLine(s.substring(8,9) & s(17) & s.substring(5,3))

        Console.WriteLine(s.substring(5,3) & s(17) & s.substring(8,9) & s(17) & s.Substring(0,5) & s(17) & s.substring(5,3))

    End Sub

End Module