Como esse codigo pode ser usado por varias pagina, eu coloquei num arquivo
em separado, e o incluo com o "<!--#include" do ASP, mas nada impede de
copiar o codigo e coloca-lo diretamente na pagina.
Te mando um exemplo para uma pagina ASP, lembrando que o arquivo VBsyntax.vbs
deve estar no mesmo diretorio da pagina ASP:
========

<%
dim teste
teste = teste & "Dim a as byte, Teste1 as String, Teste2 as Integer" & VbCrLf
& VbCrLf
teste = teste & "For a = 1 to 100  'Inicia o loop" & VbCrLf
teste = teste & "    Teste1 = " & chr(34) & "Rogrio" & chr(34) & VbCrLf
teste = teste & "    Teste2 = 12345" & VbCrLf
teste = teste & "Next a"
 %>

<html>

<!--#include virtual="VBsyntax.vbs"-->

<head>
<title></title>
</head>

<body>
<h2><b>Exemplo:</b></h2><br><br>
<%
' Response normal
response.write teste
 %>
<br><br><br>
<%
' Utilizando a funcao SynTax, para colorir a sintaxe:
response.write SynTax(teste)
 %>
</body>

</html>