add select case and case (filetype:vb)