Hola chicos, bueno les vengo a plantear algo sencillo pero no sé donde está el error, la cosa es que tengo que hacer un programa para el colegio que dados 2 numeros ingresados por el usuario, muestre en un label todos los numeros pares que se encuentran entre ellos separados por una coma, el código en si para averiguar si un numero es par y eso lo tengo bien, pero no logro que me los muestre uno al lado del otro..

El código es:

Private Sub cmdBuscar_Click()
 
Dim intX As Integer, intY As Integer, Acum1 As String, Acum2 As String
 
 
intX = Val(txtValor1.Text)
intY = Val(txtValor2.Text)
 
If (intX < intY) Then
    For x = intX To intY
        If (x Mod 2 = 0) Then
            Acum1 = Acum1 + x
            lblResultado.Caption = Acum1
        End If
    Next x
Else
    For x = intY To intX Step -1
        If (x Mod 2 = 0) Then
            Acum2 = Acum2 + x
            lblResultado.Caption = Acum2
        End If
    Next x
End If
 
End Sub

Les dejo el proyecto por si le quieren dar un revisada si es necesario:
Link: http://www.mediafire.com/?mzz1mo2m3wy

Gracias

Lo modifique como me dijiste pero todavía me sigue dando mal, pongo 1 y 20 y me muestra que los pares que hay nada más es "20"

Private Sub cmdBuscar_Click()
 
Dim intX As Integer, intY As Integer
 
intX = Val(txtValor1.Text)
intY = Val(txtValor2.Text)
 
If (intX < intY) Then
    For x = intX To intY
        If (x Mod 2 = 0) Then
            lblResultado.Caption = x & ", "
        End If
    Next x
Else
    For x = intY To intX Step -1
        If (x Mod 2 = 0) Then
            lblResultado.Caption = x & ", "
        End If
    Next x
End If
 
End Sub

Una imagen: