Translate formula into vba (index match and if formula)

[Kenneth23]

Hi

I need help here, do anyone know how to translate the below formula into vba

IF(LEFT(K5,1)="#",0,MAX((L5-INDEX(WorkingHrs[To],MATCH(J5,WorkingHrs[Working Hours],0))+(L5< index(workinghrs[to],match(j5,workinghrs[working hours],0))))-index(workinghrs[hours],match(j5,workinghrs[working hours],0)),0))

Thanks and Best Regards,

 

[DanteAmor]

Try this

  Dim res As Variant
  res = Evaluate("IF(LEFT(K5,1)=""#"",0,MAX((L5-INDEX(WorkingHrs[To]," & _
                 "MATCH(J5,WorkingHrs[Working Hours],0))+(L5< index(workinghrs[to]," & _
                 "MATCH(J5,workinghrs[working hours],0))))-index(workinghrs[hours]," & _
                 "MATCH(J5,workinghrs[working hours],0)),0))")