Tras un poco de Brainstorming he encontrado la solución
.
Por si a alguien le interesa, lo he hecho así.
Private Function buscarempleado(ByRef arrayempleados As ArrayList) As Integer
Dim cache As String
Dim i As Integer
cache = InputBox("Escriba el nombre del empleado que desea buscar", "Búsqueda") 'Pedimos el nombre a buscar, y lo guardamos en caché.
For i = 0 To arrayempleados.Count
If arrayempleados(i).nombre = cache Then
Return i
End If
Next
End Function
Agradezco igualmente sugerencias, consejos, opiniones... pero no me urgen.
Gracias a todos.