Det må kunne gøres nemmere?

Hvis jeg vil ligge 2 tal sammen, kan man så ikke gøre det nemmere end det her:

        Dim SummenAfTal As Long
        Dim Tal1 As Long
        Dim Tal2 As Long
        Tal1 = Txt_Tal1.Text
        Tal2 = Txt_Tal2.Text

        SummenAfTal = CDec(Tal1 + Tal2)
        Txt_Sum.Text = SummenAfTal