vb中使用inputbox无法弹出对话框

新人刚刚开始自学，请问三处的inputbox以及报错的val（a）出了什么问题，应该怎么修改，谢谢！！