Val will search until it hits a space. Try both of these
VB Code:
  1. MsgBox Val("21 Days")
  2. MsgBox Val("day 21")