Imports System

Public Module Module1

    Public Sub Main()

     Dim input As String

        Dim output As String

        Console.WriteLine("input any word")

        input = Console.ReadLine()

​

        output = input.Replace("e"c, "E"c).Replace("a"c, "@"c) 

        ' "e"c changes to "E"c

​

        Console.WriteLine(output)

        Console.ReadLine()

    End Sub

End Module