Incrementale un alfanumerico

private string Incrementa(string value)
{
    //Crea un array contenente i caratteri del risultato
    char[] result = value.ToCharArray();
    //Partendo dall'ultimo carattere, incrementa i precedenti
    //se il carattere passa da Z->A o 9->0
    for (int i = result.Length - 1; i > 0; i--)
    {
        switch (result[i])
        {
            //Se il carattere è Z o 9, imposta il carattere ad A o 0,
            //quindi aumenta anche il carattere precedente
            case 'Z':
                result[i] = 'A';
                break;
            case 'z':
                result[i] = 'a';
                break;
            case '9':
                result[i] = '0';
                break;
            //Altrimenti incrementa il carattere e ritorna il risultato
            default:
                result[i]++;
                return new string(result);
        }
    }

    return new string(result);
}

    Function Incrementa(ByVal value As String) As String

        Dim result As Char() = value.ToCharArray()

        For i As Integer = result.Length - 1 To 0 Step -1
            Select Case result(i)
                Case "Z"
                    result(i) = "A"
                Case "z"
                    result(i) = "a"
                Case "9"
                    result(i) = "0"
                Case Else
                    result(i) = Chr(Asc(result(i)) + 1)
                    Return New String(result)
            End Select
        Next i

        Return New String(result)
    End Function

Dim next As String = Incrementa("AA000001")