Imports System
Imports System.Text
Public Class Test
Public Shared Function replace_char(s As String, idx as Integer, ch as Char) As String
Dim len As Integer = s.Length
If (idx < 0 Or idx > len) Then
return s
End If
Dim sb As StringBuilder = new StringBuilder(s)
sb(idx) = ch
return sb.ToString()
End Function
Public Shared Sub Main()
Dim s As String = "vb.net programming"
s = replace_char(s, 3, "B")
Console.WriteLine(s)
End Sub
End Class
' run:
'
' vb.Bet programming
'