Imports System

Public Module Module1

    Public Sub Main()

        Dim searchString As String = "2 7 12 33 4 15 22 30 15"

        Dim replacementString As String = "0"

        Dim input As String = Console.ReadLine()

        If (Not Integer.TryParse(input, Nothing)) Then

            Console.WriteLine("Please enter a valid integer.")

            Return

        End If

​

        Dim searchStringCollection() As String = searchString.Split(" "c)

        For index As Integer = 0 To searchStringCollection.Length - 1

            If (searchStringCollection(index) = input) Then

                searchStringCollection(index) = replacementString

            End If

        Next

​

        Dim newString As String = String.Join(" ", searchStringCollection)

        Console.WriteLine(newString)

    End Sub

End Module