module practiceA
  sub Main(ByVal args() as String)
    dim c as Char
    dim code as Integer
    c=Console.ReadLine()
    code = Asc(c)
    code = code + 1
    c = Chr(code)
    Console.WriteLine(c)
  end sub
end module
