VS 2010 Having problems populating a list(of string)

wordList = My.Resources.wordList.Split(CChar(Environment.NewLine))

'Create a temporary list
        Dim tempList As New List(Of String)
 
        'Add to the temporary list based on the difficulty
        For i As Integer = wordList.Count - 1 To 0 Step -1
            Select Case difficult
                Case 0
                    If wordList(i).Length <= 3 Then
                        tempList.Add(wordList(i))
                    End If
                Case 1
                    If wordList(i).Length >= 4 AndAlso wordList(i).Length <= 5 Then
                        tempList.Add(wordList(i))
                    End If
 
                Case 2
                    If wordList(i).Length >= 6 Then
                        tempList.Add(wordList(i))
                    End If
            End Select
        Next

'Choose a randomword
        Dim r As New Random
        Dim int As Integer = r.Next(0, tempList.Count - 1)
        rndWord = tempList.Item(int)