VB 生成文件换行！ 出错！

    If W_UCpower = 0 Then
        powerstr = "Const API_Enable = True  ' 接口开关 True(启用) 或者 False(禁用)"
    Else
        powerstr = "Const API_Enable = False  ' 接口开关 True(启用) 或者 False(禁用)"
    End If
    UC_config=  "<"&"%"&vbcrlf&_
                powerstr&vbcrlf&_
                "Const API_DBCHARSET = ""gbk""  ' 接口编码  只支持 gbk 和 utf-8"&vbcrlf&_
                "Const UC_DBCHARSET = ""gbk""  ' UCenter编码  只支持 gbk 和 utf-8"&vbcrlf&_
                "Const UC_KEY = """&W_UCKEY&""" ' 与 UCenter 的通信密钥"&vbcrlf&_
                "Const UC_API = """&W_UCAPI&"""  ' UCenter 的 URL 地址, 最后不带/"&vbcrlf&_
                "Const UC_APPID = """&W_UCAPPID&""" ' 当前应用的 ID"&vbcrlf&_
                "Const UC_CLIENT_VERSION = ""1.5.1"""&vbcrlf&_
                "Const UC_CLIENT_RELEASE = ""20100519"""&vbcrlf&_
                "%"&">"&vbcrlf&_
                "<"&"!--#include file"&"=""asp_client/uc_authcode.asp"""&"--"&">"&vbcrlf&_
                "<"&"!--#include file"&"=""asp_client/client.asp"""&"--"&">"
        If W_UCpower = 0 Then
        UCbbs = "<" & "!--#include file" & "=""../Ucbbs/config.asp""" & "--" & ">"
        Else
        UCbbs=  "<"&"%"&vbcrlf&_
                "%"&">"
        End If
    我是asp 封装dll 出现的问题出现红色的！