如何将inputbox中自己输入的内容放进listbox中

关于在vb中,如何将inputbox中自己输入的内容放进listbox中,这段代码怎么写?请高人指点!谢谢 !的问题

Private Sub Command1_Click()
dim a as string
a=inputbox(“请输入”,”标题”)
List1.AddItem a,0
End Sub
inputbox不是控件