Imports System

Public Module Module1

    Public Sub Main()

        Dim tempString As String= "3123560,"

        Dim delimiter As String = ","

        Dim oldIndex As Integer = 0

        Dim newIndex As Integer = 0

        Dim advanceSize As Integer = 1

​

        While (newIndex <> -1)

​

            newIndex = tempString.IndexOf(delimiter, oldIndex)

​

            If newIndex = -1 Then

                Exit While

            End If

                Console.WriteLine("newIndex:" & newIndex)

                tempString = tempString.Remove(newIndex-1, advanceSize)

​

​

            oldIndex = newIndex + advanceSize

        End While

            Console.WriteLine("After removing the middle name, we are left with '{0}'", tempString)

    End Sub

End Module