Index was outside the bounds of the array. TextChanged

        initials = New String(word.Split(" "c).Select(Function(f) f(0)).ToArray).ToUpper()

Select allOpen in new window

 For Each ch As Char In word
            
                If Not Char.IsWhiteSpace(ch) Then
                    intCount += 1
               
            End If

Select allOpen in new window

I am using function TextChanged, this problem works with a button but when typeing the text when I get to a space I get and error from initials
Index was outside the bounds of the array.
with my above example how can this be fixed.