VB Code:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text5.Text = Val(Text5.Text) + Val(Text1.Text)
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
Text5.Text = Val(Text5.Text) + Val(Text2.Text)
End Sub
Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
Text5.Text = Val(Text5.Text) + Val(Text3.Text)
End Sub
Private Sub Text4_KeyUp(KeyCode As Integer, Shift As Integer)
Text5.Text = Val(Text5.Text) + Val(Text4.Text)
End Sub
but like plenderj said, you'd be better off using control array for this purpose.