运行vba程序时出现错误424要求对象怎么回事?该怎么办?下面是代码。请大侠帮忙看下怎么做了？

完整代码如下：
Private Sub UserForm_Initialize()UserForm1.Height = 268With w_UserList .ColumnCount = 6 .Visible = FalseEnd Withw_b_WorkerID.Text = ""w_b_WorkerName.Text = ""w_b_BirthDay.Text = ""w_b_Tech.Text = ""w_b_School.Text = ""w_b_Mobile.Text = ""w_b_ID.Text = ""w_b_Address.Text = ""w_b_NowAddress.Text = ""w_b_HomeTelephone.Text = ""w_b_WorkTime.Text = ""w_b_FName.Text = ""w_b_FWork.Text = ""w_b_HouseID.Text = ""w_b_CarID.Text = ""w_w_Time.Text = ""w_w_WorkTime.Text = ""w_w_NowWork.Text = ""w_w_XDep.Text = ""w_w_ExWorkTime.Text = ""w_w_WorkingTime.Text = ""w_w_Work.Text = ""w_w_UpWorker.Text = ""w_w_ChangeTime.Text = ""w_w_ChangeDep.Text = ""
With w_b_Sex.Clear.AddItem "男".AddItem "女"End WithWith w_b_Marry.Clear.AddItem "已婚".AddItem "未婚".AddItem "离异"End WithWith w_b_City.Clear.AddItem "是".AddItem "否"End WithWith w_b_Stu.Clear.AddItem "大专".AddItem "本科".AddItem "硕士".AddItem "博士"End WithWith w_b_Type.Clear.AddItem.AddItem "网上招聘".AddItem "人才市场".AddItem "推荐".AddItem "报纸"End WithWith w_b_Experience.Clear.AddItem "无经验".AddItem "一年以下".AddItem "两年".AddItem "三年".AddItem "三年以上"End WithWith w_w_NowDep .Clear .AddItem "总经办" .AddItem "策划中心" .AddItem "商业中心" .AddItem "HR及行政部" .AddItem "IT部" .AddItem "企划外联部"End WithWith w_w_Dep .Clear .AddItem "总经办" .AddItem "策划中心" .AddItem "商业中心" .AddItem "HR及行政部" .AddItem "IT部" .AddItem "企划外联部" End WithWith w_w_WorkID .Clear For i = 1 To 9 .AddItem i & "级" NextEnd With
With w_w_ChangeWorkID .Clear For i = 1 To 9 .AddItem i & "级" NextEnd WithWith w_w_XuQian.Clear.AddItem "一年".AddItem "两年".AddItem "三年"End WithEnd Sub
我现在只知道错误错现在下面的代码段：
w_b_WorkerID.Text = ""w_b_WorkerName.Text = ""w_b_BirthDay.Text = ""w_b_Tech.Text = ""w_b_School.Text = ""w_b_Mobile.Text = ""w_b_ID.Text = ""w_b_Address.Text = ""w_b_NowAddress.Text = ""w_b_HomeTelephone.Text = ""w_b_WorkTime.Text = ""w_b_FName.Text = ""w_b_FWork.Text = ""w_b_HouseID.Text = ""w_b_CarID.Text = ""w_w_Time.Text = ""w_w_WorkTime.Text = ""w_w_NowWork.Text = ""w_w_XDep.Text = ""w_w_ExWorkTime.Text = ""w_w_WorkingTime.Text = ""w_w_Work.Text = ""w_w_UpWorker.Text = ""w_w_ChangeTime.Text = ""w_w_ChangeDep.Text = ""
留一行都是这么个错误结果。求大侠帮忙。

我把所有的控件名称都在属性窗口中改过的，所有空间都有。调试不起来，出现这种错误后只能按确定，更别是说通过调试会自动跳到报错语句了。请求帮忙。

424要求对象 说明你这个窗体中没有该控件,你可以在报错的时候点调试它会自动跳到报错那句.你按类型把控件画到窗体上就可以了 注意控件名称要和代码一致否则会报错

运行vba程序时出现错误424要求对象怎么回事?该怎么办?下面是代码。请大侠帮忙看下怎么做了?按你的说法是直接粘贴代码而已,那就是没有插入用户窗体