Cómo eliminar caracteres específicos de una cadena larga en vb

Private Sub Command1_Click()

a = "Ah, soy tan rico y rico, me encantan los enlaces espaciales"

b = "Indirectamente"

For i = 1 To Len(b)

a = Reemplazar(a, Mid(b, i, 1), "") 'Reemplazar carácter

Siguiente i

MsgBox a

Fin Sub