人求助关于VB编写小闹钟的程序。

我从网上下载了一个代码看看，地址是：http://www.bc-cn.net/Article/kfyy/vb/bcsl/200512/2466.html
我把代码弄上去之后发现有一些错误，最关键的是其中的“AlarmTime”这个变量的类型以及格式问题。请大家帮忙看一下该怎么改？
代码如下；
Option Explicit
Dim AlarmTime '申明变量（这个样子定义变量行吗？是什么类型？）

Private Sub Command1_Click()
Call dialog '调用dialog子程序
End Sub

Private Sub Form_Load()
Command3.Enabled = False '初始化时command3为不可用的
AlarmTime=""(这样的话不就是当成字符串的形式了么？
End Sub

Private Sub Command2_Click()
AlarmTime = InputBox("请输入你想设定的时间,例如(19:12:00)", "小闹钟").
If AlarmTime = "Then Exit Sub"
If Not IsDate(AlarmTime) Then
MsgBox "你所输入的不是时间格式,请重试!", , "Wrong"
Else
AlarmTime = CDate(AlarmTime)
End If
'判断输入的是否可转换成time格式
'isdate函数是判断输入的是否可转

修改完毕,并添加了注释
-------------------------------------------
Option Explicit
Dim AlarmTime '申明变量（这个样子定义变量行吗？是什么类型？）
'将AlarmTime申明为变体型(Variant)

Private Sub Command1_Click()
Call dialog '调用dialog子程序
End Sub

Private Sub Form_Load()
Command3.Enabled = False '初始化时command3为不可用的
AlarmTime = "" '(这样的话不就是当成字符串的形式了么？
'此时AlarmTime为字符串型(String)
End Sub

Private Sub Command2_Click()
'AlarmTime = InputBox("请输入你想设定的时间,例如(19:12:00)", "小闹钟").
AlarmTime = InputBox("请输入你想设定的时间,例如(19:12:00)", "小闹钟")
'此时AlarmTime为字符串型(String)
'If AlarmTime = "Then Exit Sub"
If AlarmTime = "" Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox "你所输入的不是时间格式,请重试!", , "Wrong"
Else
AlarmTime = CDate(AlarmTime)
'此时AlarmTime为日期型(Date)
End If
'判断输入的是否可转换成time格式