subtract arrays type mismatch please help

[vbcielle]

i have three arrays below

l = 0
For k = LBound(Tstk) To UBound(Tstk)
  Tstk(k) = stk(l)
  l = l + 1
  Next k

z = 0
 For x = LBound(qty) To UBound(qty)
    qty(x) = Text5(z).Text
    z = z + 1
   'Tstk(x) = stk(z) - Text5(z).Text
    'Print qty(x)
 Next x

m = 0
For t = LBound(stk2) To UBound(stk2)
  stk2(t) = Tstk(m) - qty(m)
  m = m + 1
  Print stk2(t)
Next t

how can i subtract the result of the 1st array Tstk(m) to the second array qty(m)
i always get runtime error 13 type mismatch please help