各位大侠，这是别人写的一个加载模板的函数，用vb封装在dll里了，这是原代码，但是小弟看不懂，请您给讲解一下！谢谢！
Public Function Load(ByVal sTemplateName)
Dim sFlag1, p1, p2
sFlag1 = "<alz:template name=""" & sTemplateName & """"
p1 = InStr(page, sFlag1)
If p1 <> 0 Then '如果找到模板开始标志
p1 = InStr(p1 + Len(sFlag1) + 2, page, "<")
p2 = InStr(p1, page, "</alz:template>")
If p2 <> 0 Then
Load = Mid(page, p1, p2 - p1)
Else
Load = "<b>未找到模板" & sTemplateName & "，未找到结束标志</b>"
End If
Else
Load = "<b>未找到模板" & sTemplateName & "</b>"
End If
End Function