截取变量a字符中的从第一个到第四个

<%
dim a,b,c
a="祖国啊伟大的祖国"
c=left(a,4)
response.write c
%>