CATIAのマクロで本保雅基地外

Sub CATMain()
Dim Input As String
Input = "本保"
Input = InputBox ("Please enter your last name.","Enter Last Name",Input)
End Sub

CATIAのマクロで本保雅基地外と入力するボックスを表示させてみたWWW