Binaryworld - IncrementString- Incrementing the numeric right-most portion of a stri ... [ VB.net -> String ]

' Increment the numeric right-most portion of a string
' Example: MessageBox.Show(IncrementString("test219")) ' => 220

Function IncrementString(ByVal text As String) As String
  Dim index As Integer
  Dim i As Integer
  For i = text.Length - 1 To 0 Step -1
    Select Case text.Substring(i, 1)
      Case "0" To "9"
      Case Else
        index = i
        Exit For
    End Select
  Next

  If index = text.Length - 1 Then
    Return text & "1"
  Else
    Dim value As Integer = Integer.Parse(text.Substring(index + 1)) + 1
    Return text.Substring(0, index) & value.ToString()
  End If
End Function