SLD Tridion Error (Ayuda)

Buenas,

Desde hace poco tiempo me estoy formando en Tridion. En estos momentos estoy probando los TBB (Template Building Blocks).

Pero me salta un error y el problema es que no tengo depurador y no entiendo que me falla.

Os copio el codigo y el error:

Este es el codigo de Template Component ( Plantilla de componente)

[%

#include "tcm:1-284-2048"

Dim strTitulo,strDescripcion

Dim objImg, srcImg


strDescripcion = Component.Fields("Descripcion").Value(1)
strTitulo = Component.Fields("Titulo").Value(1)

Set objImg = Component.Fields.Item("Imagen").Value(1)
srcImg= PublishBinary(objImg)
Set objImg = Nothing


%]

<div style="border:solid">
	
[% 	
	if CheckValue(srtTirulo) Then
%]

<h1>[%WriteOut strTitulo%]</h1>
	
[% 
	WriteOut "El campo Titulo no esta vacio"
%]
	
[%
	Else WriteOut "El campo titulo esta vacio"
	Enf if	
%]

<p>[% WriteOut strDescripcion%]</p>

<img src="[% WriteOut srcImg%]"/>

</div>

Este el de la TBB

	Function CheckValue (ByRef par) as Boolean
		If Not par Is Nothing Then
			If par.Value.Count > 0 Then
				CheckValue = True 'El campo no esta vacio
			Else
				CheckValue = False 'El campo esta vacio
			End If
		Else
			CheckValue = False 'El campo no existe
		End If
		
	return CheckValue
	
End Function

Y este es el Error(plt_cmp_david_prueba1 es el nombre del archivo)

El error 1024 sucedió mientras se producía la Presentación de Componente (david_prueba1:plt_cmp_david_prueba1): Se esperaba una instrucción (código: Function CheckValue (ByVal par) as Boolean).<br /><br /><hr />Content Manager StackTrace:
UtilitiesPublish.RenderComponentPresentationComponentPresentation.Render
Component.RenderRequest.Render