private sub command1_click s = inputbox("")msgbox s & "你好!"end sub
msgbox (inputbox("输入姓名") & ", 你好!")
Private Sub command1_click()Dim ss = InputBox("")MsgBox s & "你好!"End Sub