excel - Populating cell value using user form textboxes -

users complete user form value they'd replace (a, 34) , they'd replace (a, 35).
if output of vlookup in (a, 34) value user form, i'd populate value assigned (a,35) user form. anytime run it, "run-time error '13': type mismatch"

dim long  = 5  range("a5").activate  while cells(a, 1).value <> ""      if worksheets("pricematch").cells(a, 34).value = currex.text          worksheets("pricematch").cells(a, 35).clearcontents         worksheets("pricematch").cells(a, 35).value = newex.text      end if  = + 1  loop = + 1 

thanks