Yo lo haría con una serie de arreglos
numeritos= 100,154,456
'Pasas el valor
mi_valor = 154
arrNumeritos= split(numeritos)
x=0
Dim arrNumeritos2()
For i=0 to uBound(arrNumeritos)
If not arrNumeritos(i)= mi_valor Then
If x=0 Then
Redim arrNumeritos2(x)
Else
Redim Preserve arrNumeritos2(x)
End If
arrNumeritos2(x)= arrNumeritos(i)
x= x + 1
End If
Next
Después tienes un arreglo con los números quitándole el valor que pasaste y lo puedes reconstruir a su forma original
numeritos=""
For i=0 to uBound(arrNumeritos2)
numeritos= numeritos & arrNumeritos2(i) & ","
Next
'Necesitamos parsear este valor
numeritos= left(numeritos, len(numeritos)-1)
'El resultado de todo esto es:
numeritos= 100,456
Es lo que se me ocurre, a lo mejor alguien sale con algo mejor
Salu2,
je je, hasta ahora vi las otras respuestas, que rápidos andan hoy
