Private Sub txtNum_Change()
    If IsNumeric(txtNum) Then
        calc txtNum
    End If
End Sub
Private Sub calc(maxVal As Integer)
    Dim co As Integer
    Dim curVal As Integer
    Dim i As Integer
    Dim s As String
    s = ""
    co =  0 
    curVal =  0 
    i =  2 
    While curVal < maxVal
        If i Mod  2  =  0  Then
           co = co +  1 
           s = s & i & " + "
           curVal = curVal + i
        End If
        i = i +  1 
    Wend
    lblCo = co
    lblSum = Mid(s,  1 , Len(s) -  2 ) & "=" & curVal
End Sub