Fjerne matchende ord i streng

Dim Start, Slut, Ord, Temp 'Strings
Dim Fundet 'Boolean
Dim i, j 'Integers

'Først de ord vi vil slette i teksten (de bliver adskildt af et ",")
temp = "hvid,rød,sort"

'Så deler vi ordene op i et array
Ord = Split(LCase(temp), ",")

'Teksten vi leder i
Start = "Sneen var hvid og de røde nisser kunne ikke kører"

'Den deler vi også op i et array
Start = Split(LCase(Start))

'øhm skal jeg forklare det her: ????   
For i = 0 To UBound(Start)
  fundet = False
  For j = 0 To UBound(Ord)
    temp = Left(Start(i), Len(Ord(j)))
    If temp = Ord(j) Then
      fundet = True
      Exit For
    End If
  Next
   
  If fundet = False Then
    slut = slut & " " & Start(i)
  End If
Next

'Der er et mellemrum i startet af slut, det skal lige fjernes 
Slut = LTrim(Slut)

'Så skriver vi "Slut" ud
Response.Write Slut

perfekt