PrivateSubCommand_Click()DimBAsBooksOpen“Person.txt”ForOutputAs#B.Name＝InputBox(“输入姓名”)B.TelNum＝InputBox(“输入电话号码”)Write#，B.Name，B.TelNumClose#EndSub