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) & s(18) & s(19) & s.substring(5,9) & s(17)&s.substring(14,3))

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

‘Add code here

End Sub

​

End Module