Imports System
Public Class Test
Public Shared Sub Main()
Dim number As Integer = 853271
Dim N As Integer = 4
Dim s As String = Convert.ToString(number)
Dim beforeN As String = s.Substring(0, N - 1)
Dim afterN As String = s.Substring(N, s.Length - N)
number = Integer.Parse(beforeN + afterN)
Console.WriteLine(number)
End Sub
End Class
' run:
'
' 85371