primer valor ausente en una columna

[furrymaster]

Buenas, estoy trabajando con visual basic .net 2008 y tengo este problema, hice una función que debería ir comprobando números uno a uno hasta dar con uno que no estubiera en la primera columna del datagrid... Pero siempre devuelbe 1, y no se porqué...

Código:

    Private Function buscarhuecoclientes()
        Dim i As Integer
        Dim e As Integer
        Dim number As Integer
        e = 0
        i = 0
        number = 0
        Do
            If number = 0 Then
                number = i
            End If
            Do
                If DataGrid_Clientes.Item(i, 0).Value.ToString = e.ToString Then
                    number = 0
                End If
                e += 1
            Loop While (e < DataGrid_Clientes.RowCount)
            i += 1
        Loop While (i < DataGrid_Clientes.RowCount)
        Return number
    End Function

Esta es la función, espero que alguien pueda ayudarme a encontrar el error