Matrix opslag

Hey

For nogle år siden fik jeg hjælp til understående funktion:

Function SpecialOpslag(Area As Range, Højde As Double, Bred As Double)
  Dim dif As Double
  Dim i As Long, x As Long, y As Long, p As Integer
  dif = 100000
  Set Area = Area
  For i = 1 To Area.Rows.Count
    If Area(i, 1) >= Højde And Area(i, 1) - Højde < dif Then
    dif = Area(i, 1) - Højde
    x = i
    End If
  Next
  dif = 100000
  For i = 1 To Area.Columns.Count
    If Area(1, i) >= Bred And Area(1, i) - Bred < dif Then
    dif = Area(1, i) - Bred
    y = i
    End If
  Next
  SpecialOpslag = Area(x, y)
End Function

Det var bak som lavede den til mig, nu vil jeg høre om nogen kan hjælpe med at omskrive den sådan at opslaget kan laves på tekst, sådan at der ledes efter en tekst.

Ovenstående funktion returnerer nærmeste større - det skal den naturligvis ikke da det jo er tekst...

-så kort og godt i celle a1 står der tekst1 og i celle a2 står der tekst2 nu skal jeg så finde værdien i skæringspunktet:

Matrix:

        tekst1  tekst3  tekst5
tekst2    2000    4000    6000
tekst4    1000    3000    5000
tekst6    2500    2600    2700

resultatet skulle så gerne være 2000

Håber nogen kan hjælpe...