Sleeper: Converting Index Match function to VBA code

[georgedixon]

Hi,
I was looking to convert this formula to a VBA custom function:

=IF(D26="",IF(ISNA(INDEX(Sheet5!$E$4:$G$5,MATCH(C26,Sheet5!$E$4:$E$5,0),0)),INDEX(Sheet5!$E$4:$G$5,MATCH(C26,Sheet5!$E$4:$E$5,0),1), _
INDEX(Sheet5!$E$4:$G$5,MATCH(C26,Sheet5!$E$4:$E$5,0),0)),IF(ISNA(INDEX(Sheet5!$E$4:$G$5,MATCH(D26,Sheet5!$E$4:$E$5,0),0)), _
INDEX(Sheet5!$E$4:$G$5,MATCH(D26,Sheet5!$E$4:$E$5,0),1),INDEX(Sheet5!$E$4:$G$5,MATCH(D26,Sheet5!$E$4:$E$5,0),0)))

The reason I want to put this within a VBA module is because I need to change the references, and they are a whole lot longer than above (hence they don't fit within a normal formula region)

[Paul_Hossler]

Can you turn that into pseudo-code using If/Then/Else with indents?