Dim Input
Input = InputBox("Enter your pic no:")
Browser("调查博客").Page("调查博客").WebEdit("ident_code").Set  Input