일떄문에 만든 문자열에서 한문 걸러내는 vb 함수

[aa(121.66)]

Public Shared Function setFont(t As String) As ArrayList
        Dim array = t.ToCharArray
        Dim arr As New ArrayList

        For i = 0 To t.Count - 1
            If AscW(array(i)) <= Convert.ToInt32("9FCF", 16) And Convert.ToInt32("4E00", 16) <= AscW(array(i)) Then
                arr.Add(i)
            End If
        Next

        Return arr

End Function

별걸 다시키네