请帮我看看下面这段代码的意思，谢谢啊！！

[yuanxianping]

请大家帮我仔细讲讲下面两段代码的含义，谢谢！
Public Function Word_Byte(S_Data As Long) As Variant
Dim t(2) As Byte
t(0) = CByte(S_Data Mod 256)
t(1) = CByte(S_Data \ 256)
Word_Byte = Array(t(0), t(1))
End Function


Public Function sbyte_word(strg() As Byte, Sit As Variant) As Long
On Error GoTo sberexit
sbyte_word = (strg(Sit) - 48) * 10 + (strg(Sit + 1) - 48)
GoTo sbw_exit
sberexit:
sbyte_word = 0
sbw_exit:
End Function

[ygrobin]

第一段代码是将S_Data中的数据除以256后,将余数和商转化为byte变量分别放到t(0)和t(1)中，然后返回此数组地址
第二段只是简单的计算，但具体是做什么的就不知道了!!!
:)

[空心兜兜]

第一段我就不罗嗦了，同意楼上

第二段……
你代码没贴全啊……看来是计算后赋值了，然后GOTO到哪里去了