Sub Main()
  b = Val(InputBox(""))
  i = Int(Log(b + 0.1) / Log(1000))
  p = b / 1000 ^ i
  MsgBox p & IIf(i > 0, Mid("kMGTPEZY", i, 1), "")
End Sub