Hola
joanan46!. Lo que puedes hacer es recorrer caracter por caracter con un for y comparar para reemplazarlo :
Creas 2 TextBox(1 se llamará txtEntrada y el otro txtResultado) y 1 boton, luego en el evento click de tu boton haces lo siguiente
Código vb:
Ver originalPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Pasamos la cadena a un array
Dim array() As Char = txtEntrada.Text.ToCharArray()
'Declaramos una una variable para la nueva cadena
Dim nuevo As String = String.Empty
'Recorremos el array que contiene la cadena
For indice As Integer = 0 To array.Length - 1
'Evaluaremos caracter x caracter
Select Case array(indice)
'Si el caracter es...
Case "2", "3", "4"
'Lo Reemplazamos por el "0"
nuevo = nuevo & "0"
'Sino...
Case Else
'Que se agregue a la nueva cadena
nuevo = nuevo & array(indice)
End Select
Next
'Una vez finalizado el recorrido de la cadena
'Imprimimos el resultado
txtResultado.Text = nuevo
End Sub
Si gustas averigua tambien sobre la funcion
.Replace() de los strings que con eso tambien lo puedes hacer en vez de concatenar con el
"&". Saludos!

.