Bueno, esto parece un monólogo...
Lo he pulido un poco, pero ahora me surge otro problema:
Private Function buscarempleado(ByRef arrayempleados As ArrayList) As Integer
Dim cache As String 'Creamos una variable tipo String para guardar el nombre a buscar
Dim i As Integer 'Creamos una variable contador
cache = InputBox("Escriba el nombre del empleado que desea buscar", "Búsqueda") 'Pedimos el nombre a buscar, y lo guardamos en memoria.
MessageBox.Show(arrayempleados.Count())
For i = 0 To arrayempleados.Count 'Recorremos el array en busca
If arrayempleados(i).nombre = cache Then
Return i
Else
MessageBox.Show("Empleado no encontrado.", "No encontrado")
Return -1
End If
Next
End Function
Si el array está vacío me sale una excepción:
No se controló ArgumentOutOfRangeException
El índice estaba fuera del intervalo. Debe ser un valor no negativo e inferior al tamaño de la colección.
Nombre del parámetro: index
Alguna idea?