Reemplazar un rango de una cadena

[Aquaventus]

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:

Private 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!.