Imports System Public Class MainClass Shared Sub Main(ByVal args As String()) Dim myString As String myString = "AAA" ' replace the string... Dim newString As String newString = myString.Replace("A", "NNN") ' display the new string... Console.WriteLine(newString) End Sub End Class