Extraer valores de una variable separadas con comas VBA Excel 2010

Prueba con la siguiente.

sub separar()

dato=split(variable, ",")

for i = lbound(dato) to ubound(dato)

wdat = dato(i)

next

end sub

Escribe el codigo debajo de tu codigo para que la variable tenga datos

Así quedaría el ejemplo:

Sub datosenvariable()
    Dim i As Byte
    Dim Variable As String
    For i = 1 To 10
        Variable = Variable & ", " & Cells(i, 1)
    Next i
    '
    'Para separar los datos
    dato = Split(Variable, ",")
    For i = LBound(dato) To UBound(dato)
        Cells(i + 1, "B") = dato(i)
    Next
End Sub