VB语盲，想写一个小小程序，找到开头了没下文，希望好心人帮一下。
我想要一个小程序，用记录员工上班时的准确时间，但又不会，网上有考虑软件但都太复杂，有些用上不，我也下了几个，不会用。用电脑自带的记事本呢人不在又不行。所以在网上找了以下几行开头，是别的小程序的开头，我想请那位大哥可以帮我写下文。
我对些小软件的要求很简单，只要可以自己增加输入员工的姓名，条形码（可更改的）。自动记录员工输入条形码时的准确时间并保存在磁盘里，可查看。就这两个要求就行了。请帮帮忙，只是我几年前学过QB语言，但现在全忘光了，只有在这求人了，希望有好心人可以帮一下忙。
以下我写上我在网上打的开头：
ON ERROR RESUME NEXT
Dim x
if Wscript.arguments.count<1 then
x=InputBox("员工考勤程序"&vbCr&vbCr&" 本程序将自动记录你上班的准确时间，考勤以此时间为准！"&vbCr&vbCr&"在以下框内输入条形码：","Y。Q。E。R。员工考勤记录器","删除框内字后，在此输入条形码")
if X="" then
？
？
？
END IF
NEXT
早知道当时就在学校多学点了，现在后悔来不及。求求求求求求求求求好心人！！！！！！好人一身平安！
