Dim s as string = "test String"
MessageBox.Show (s.Substring(1,2))
Dim strString As String = "abc123"
Dim strNewString As String = strString.Replace(strString.Substring(1, 1), "B")
MessageBox.Show(strNewString) '/// b will be replaced with B