VB问题，我很着急，找人分析透彻点！

Private Function prime(n As Integer) As Boolean
Dim s As String, l As Integer, k As Integer, tem As Long, i As Integer
s = CStr(n)
l = Len(s)
For i = 1 To l
If i <> l Then
tem = Val(Mid(s, i, 1)) + Mid(s, i + 1, 1)
Else
tem = Val(Mid(s, 1, 1)) + Mid(s, l, 1)
End If
For k = 2 To Sqr(tem)
If tem Mod k > 0 Then Exit Function
Next k
Next i
primr = True
End Function
这个程序找人解释下，要很清楚的！我自己分析的有点晕了，

帮我分析，分析吧！朋友们！我很着急 关于档案的问题，很着急！请帮我分析下 VB编程的问题！很着急，请帮帮忙！ 孤单却总是拒绝喜欢我的人，我现在25了，很着急，大家帮我分析分析 系统问题 我很着急!! PS问题，我很着急 我很着急,大家帮我分析啊 帮我分析一下这首藏头诗吧,谢谢大家,很着急! 帮我分析下这个VB程序的问题 VB问题~~~~~~找数