Imports System
Public Class RemoveNCharactersFromMiddleOfString_VB_NET
Public Shared Sub Main(ByVal args As String())
Dim str As String = "abc123def"
Dim mid As Integer = str.Length / 2
Dim N As Integer = 3
str = str.Substring(0, mid - N / 2) & str.Substring(mid + 1 + N / 2)
Console.WriteLine(str)
End Sub
End Class
' run:
'
' abdef
'