vb Code:
  1. dim x as string