ayuda en VB6

[bleid]

Si gracias es que me confundi por que tu utilizaste el me.cuadro1 en lugar de text1.text pero gracias por todo aun que no me funciono.
Lo que nesecitaba era esto:

Private Sub Command1_Click()
Dim n1 As Integer, n2 As Integer, x As Integer
n1 = Text1.Text
n2 = Text2.Text
K = n1 Mod 2

If K = "1" Then
n1 = n1 + 1
For x = n1 To n2 Step 2
s = s + x
Next x
Print s
ElseIf K = "0" Then
For x = n1 To n2 Step 2
s = s + x
Next x
Print s
End If
End Sub