Trim all whitespace in an array

Question

How do I trim all whitespace in an array?

Dim str() As String = {"Tyrannosaurus", _
       "Amarga saurus", _
       " Mamenchisaurus", _
       "Brachios aurus", _
       "Deinonychus", _
       "Tyr annosaurus", _
       " Compsognathus"}

Answer 1

Dim reg As New Regex("\s*")
For i = 0 To temp.Length - 1
    temp(i) = reg.Replace(temp(i), "")
Next i

Answer 2

str = str.Select(Function(s) s.Replace(" ", "")).ToArray()