Function 是函数，不是过程，不论在VB、VB.NET、C等等，均是函数。
目前成都创新互联公司已为1000+的企业提供了网站建设、域名、网络空间、网站托管、服务器托管、企业网站设计、突泉网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
thr_test(i) = New System.Threading.Thread(New System.Threading.ParameterizedThreadStart(Sub()
直接写过程代码
End Sub))
你的i = Len(Str(a))会出问题。
If i 1 Then
Return True
End If
这个返回在if内部，当条件不满足将导致函数无返回。
以下代码仅供参考:
Function IsH(ByVal a As Long) As Boolean
Dim i As Long, j As Long, t As String
t = a.ToString
i = t.Length
Select Case i
Case 1
Return True
Case 2
If Mid(t, 1, 1) = Mid(t, 2, 1) Then Return True Else Return False
Case 3
If Mid(t, 1, 1) = Mid(t, 3, 1) Then Return True Else Return False
Case Else
For j = 1 To i \ 2
If Mid(t, j, 1) Mid(t, i - j + 1, 1) Then Return False
Next j
End Select
Return True
End Function