我的VB程序！！！！好烦躁

Private Sub Command1_Click()
Text7.Text = Val(Text1.Text) + Val(Text4.Text)
End Sub

Private Sub Command2_Click()
Text8.Text = Val(Text5.Text) + Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text9.Text = Val(Text3.Text) + Val(Text6.Text)
End Sub

Private Sub Command1_Click()
tmpstr = "Id:d1001" & Chr(13) & Chr(10) & "姓名张三" & Chr(13) & Chr(10) & "地址学府街1号" & Chr(13) & Chr(10) & "电话：10001" & Chr(13) & Chr(10) & "雇佣日期；2010-10-10 " & Chr(13) & Chr(10)

retstr = InputBox(tmostr, 习题4 - 20, 请输入)
Label1.Caption = tmpstr
End Sub

Private Sub Command1_Click()
Dim a, b As Date
Dim c, d, e As Integer
    a = Text1.Text
    b = Text2.Text
    c = DateDiff("h", a, b)
    d = DateDiff("n", a, b)
    e = DateDiff("s", a, b) - 60 * d
Text3.Text = "还有" & Str(c) & ":" & Str(d) & ":" & Str(e) & "到时"
End Sub

Private Sub Form_Load()
Text1.Text = Time
End Sub