Funktion som ska generera versal

Har ett skript där versal ska bildas ganska frekvent så jag försökte mig på att fixa en funktion för detta.

Function Text(strMessage)
	Text = UCase(Left(strMessage), 1)) & LCase(Right(strMessage), Len(strMessage) -1))
End Function

Response.Write Text("hej")

Funktionen fungerar inte alls :-(

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/trade/test.asp, line 11, column 33
Text = UCase(Left(strMessage), 1)) & LCase(Right(strMessage), Len(strMessage) -1))