Buenas, por lo que veo sería:
en la función:
Function GetDepthFromCSV(csvData As Variant, holeID As String) As Variant
cambia la línea done crea el array lineData , el delimitador de esta mal:
lineData = Split(csvData(i), ";") ' cambia "," por ";"
y la captura del campo, cambia el número de columnas
GetDepthFromCSV = lineData(3) ' Asume que la columna 1 es PROF_REC ' cambio por 3
de esta manera parece que funciona como lo quieres.
saludos
survey_test2_v1.xlsm