SPLIT og TRIM

Jeg vil gerne have nedenstående kode til også at implementere TRIM metoden, så strengene i arrayet er renset for mellemrum.

<%
Dim strAryWords
Dim strValue
strValue = "This is the tactical ASP      column by Rama          Ramachandran"
strAryWords = Trim(Split(strValue, " "))
Dim i
For i = 0 to Ubound(strAryWords)
    Response.Write i & " = " & strAryWords(i) & "<BR>"
Next
%>

Men når jeg prøver, får jeg følgende fejlmeddelelse:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
/helpdesk/split.asp, line 5