User: what happend 
compare="text within will be searched!"
  searchfor="!"
  position=InStr(compare,searchfor)
  
  if position >= 1 then 
  	msgbox "The character/s you searched for is/are on position :"&position,,"found"
  else 
  	wscript.echo "not found"
  end if