Es facil pones 4 cajas de texto y un boton pones el siguiente codigo en el boton:
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox "Faltan valores"
Else
For i = Val(Text1.Text) To Val(Text2)
If i Mod 2 = 0 Then
If Text3 = "" Then
Text3 = i
Else
Text3 = Text3 & "," & i
End If
Else
If Text4 = "" Then
Text4 = i
Else
Text4 = Text4 & "," & i
End If
End If
Next i
End If
End Sub
Saludos
