Replacing SubStrings

Module Module1

Sub Main()
Dim initialstring As String = Nothing
Dim finalstring As String = Nothing
Console.WriteLine("Enter your stirng: ")

initialstring = Console.ReadLine()
finalstring = initialstring.Replace("hello", "goodbye")
Console.WriteLine(finalstring)



Console.ReadLine()

End Sub

End Module