对比字符串，有没有好算法？
比如，在TEXT1.text中有以下内容
------------------
000a-ebfb-f611
0014-851d-5064
00e0-fc5c-c973
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4c11-1171
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
0014-851d-5064
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
00e0-4d00-b055
-----------------------
我想查找出现最多的一个，并且出现次数要大于10，
大家有没有好的算法？说来听听，谢谢

[解决办法]
Function GetString(str As String) As String

Dim arr() As String
Dim i As Integer, n As Integer
Dim mInt As Integer, tmp As Integer

arr = Split(str, vbCrLf)
n = UBound(arr)
For i = 0 To n
If Trim(arr(i)) <> vbNullString Then
tmp = UBound(Split(str, arr(i)))
If tmp > mInt Then
mInt = tmp
GetString = arr(i)
End If
End If
Next
If mInt <= 10 Then GetString = "没有超过10次的字串 "

End Function

Private Sub Command1_Click()
Debug.Print GetString(Trim(Text1))
End Sub