lommeregner i vB

Jeg er nybegynder i VisualBasic og skal til prøve imorgen ;D
Jeg skal lave en lommeregner og det skulle efter min mening virke med følgende script. Jeg kan ikke selv finde fejlen er der nogle af jer hardcore der kan?

her er koden for pluskomandoen:
Private Sub cmdplus_Click()
lbltal1.Caption = Txttalfelt.Text
Txttalfelt.Text = \"\"
lblregneart.Caption = \"plus\"
End Sub


når jeg trykker på et tal, og plus knappen efterfølgende, får jeg fejlmeddelelse:

object required
og følgende blir markeret som fejl:
lbltal1.Caption = Txttalfelt.Text



hele coden for programmet er her:

Private Sub cmddivider_Click()
lbltal1.Caption = Txttalfelt.Text
Txttalfelt = \"\"
lblregneart.Caption = \"divider\"
End Sub

Private Sub cmdgange_Click()
lbltal1.Caption = Txttalfelt.Text
Txttalfelt = \"\"
lblregneart.Caption = \"gange\"
End Sub

Private Sub cmdminus_Click()
lbltal1.Caption = Txttalfelt.Text
Txttalfelt = \"\"
lblregneart.Caption = \"minus\"
End Sub

Private Sub cmdplus_Click()
lbltal1.Caption = Txttalfelt.Text
Txttalfelt.Text = \"\"
lblregneart.Caption = \"plus\"
End Sub

Private Sub lbl0_Click()
Txttalfelt.Text = Txttalfelt.Text & \"0\"
End Sub

Private Sub lbl1_Click()
Txttalfelt.Text = Txttalfelt.Text & \"1\"
End Sub

Private Sub lbl2_Click()
Txttalfelt.Text = Txttalfelt.Text & \"2\"
End Sub

Private Sub lbl3_Click()
Txttalfelt.Text = Txttalfelt.Text & \"3\"
End Sub

Private Sub lbl4_Click()
Txttalfelt.Text = Txttalfelt.Text & \"4\"
End Sub

Private Sub lbl5_Click()
Txttalfelt.Text = Txttalfelt.Text & \"5\"
End Sub

Private Sub lbl6_Click()
Txttalfelt.Text = Txttalfelt.Text & \"6\"
End Sub

Private Sub lbl7_Click()
Txttalfelt.Text = Txttalfelt.Text & \"7\"
End Sub

Private Sub lbl8_Click()
Txttalfelt.Text = Txttalfelt.Text & \"8\"
End Sub

Private Sub lbl9_Click()
Txttalfelt.Text = Txttalfelt.Text & \"9\"
End Sub

Private Sub lblerligmed_Click()
If lblregneart.Caption = \"plus\" Then
Txttalfelt.Text = Val(Txttalfelt.Text) + _
Val(lbltal1.Caption)
End If
If lblregneart.Caption = \"minus\" Then
Txttalfelt.Text = Val(Txttalfelt.Text) + _
Val(lbltal1.Caption)
End If
If lblregneart.Caption = \"gange\" Then
Txttalfelt.Text = Val(Txttalfelt.Text) + _
Val(lbltal1.Caption)
End If
If lblregneart.Caption = \"divider\" Then
Txttalfelt.Text = Val(Txttalfelt.Text) + _
Val(lbltal1.Caption)
End If
End Sub

Private Sub lblkomma_Click()
Txttalfelt.Text = Txttalfelt.Text & \".\"
End Sub