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