一个非常简单的将半角"转换为中文“的函数

     function new_str(str)
  if instr(str,chr(34))<>0 and str<>"" then
   str_split=split(str,chr(34))
   i=1
   str_s=""
   for j=0 to ubound(str_split)-1
   if i mod 2 then
   str_s=str_s&str_split(j)&"“"&str_split(j+1)
   else
   str_s=str_s&str_split(j)&"”"&str_split(j+1)
   end if
   i=i+1
   next
  end function
  
  
  
  

原文转自：http://www.ltesting.net