Por ejemplo:
PD: Lo codee de memoria, puede tener errores.
Código (vb) [Seleccionar]
Private Sub cmdBuscar_Click()
Dim intX As Integer
Dim intY As Integer
Dim i As Integer
intX = 1
intY = 10
For i = intX To intY
If i Mod 2 = 0 Then
lblResultado.Caption = i & ", "
End If
Next
End Sub
PD: Lo codee de memoria, puede tener errores.