calculadora visual basic 6.0

código de suma:

Txt3.Text = Val(txt1.Text) + Val(Txt2.Text)
lblsigno.Caption = "+"


código de resta:

Txt3.Text = Val(txt1.Text) - Val(Txt2.Text)

lblsigno.Caption = "-"

código de multiplicación:

Txt3.Text = Val(txt1.Text) * Val(Txt2.Text)
lblsigno.Caption = "*"


código de división:

If Txt2.Text = 0 Then
MsgBox "error", vbCritical, "information"
Txt2.Text = ""
Else
Txt3.Text = Val(txt1.Text) / Val(Txt2.Text)
lblsigno.Caption = "/"
End If