evb inputbox

Option Explicit

Private Sub Form_Click()
    Dim strResult As String
    strResult = InputBox("請輸入公司名稱", "親愛的客戶您好", "株式會社")
    Print "您好，" & strResult
End Sub
Private Sub Form_OKClick()
    App.End
End Sub