Записать подпрограмму, составляющую список "неправильных" слов - Visual Basic .NET

Формулировка задачи:

Записать подпрограмму, которая составляет список "неправильных" слов текста. "Неправильными" считать слова, в которых вперемешку буквы русского и латинского алфавитов или буквы и цифры. Подпрограмма принимает исходный текст и возвращает массив искомых слов.

Решение задачи: «Записать подпрограмму, составляющую список "неправильных" слов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim txt As String = "Leaflet is designed with simplicity performыукацance and usab125ility in mind It works efficiently across all major desktop and mobile platforms out of the box"
Dim ttx() As String = txt.ToLower.Split(" "c)
Dim lst As New List(Of String)
Dim sm As Integer
For Each wrd As String In ttx
    sm = 0
    For Each ch As Char In wrd.ToCharArray
        If Char.IsDigit(ch) Then
            sm = wrd.Count - 1
            Exit For
        End If
        If AscW(ch) > 96 AndAlso AscW(ch) < 123 Then
            sm += 1
        Else
            sm -= 1
        End If
    Next
    If Math.Abs(sm) <> wrd.Count Then
        lst.Add(wrd)
    End If
Next
ListBox1.Items.AddRange(lst.ToArray)