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