Imports System
Class Program
Public Shared Sub Main()
Dim s As String = "aa bb cc dd ee cc"
Dim result As String = ReplaceFirst(s, "cc", "YY")
Console.WriteLine(result)
End Sub
Private Shared Function ReplaceFirst(ByVal input As String, ByVal search As String, ByVal replace As String) As String
Dim index As Integer = input.IndexOf(search)
If index < 0 Then Return input
Return input.Substring(0, index) & replace & input.Substring(index + search.Length)
End Function
End Class
' run:
'
' aa bb YY dd ee cc
'