求教一算法！！！！

Question

Private Sub Command1_Click()
Dim a(4) As String
Dim i As Long
a(0) = "1587238 (1153853342)"
a(1) = "1591838 (1153891025)"
a(2) = "1656332 (1154419367)"
a(3) = "145175  (1125199053)"For i = 0 To 3
    MsgBox Val(Mid(a(i), InStr(a(i), "(") + 1, InStrRev(a(i), ")") - InStr(a(i), "(")))
NextEnd Sub

Answer 1

Private Sub Command1_Click()
MsgBox getit("1587238 (1153853342)")
End SubFunction getit(ByVal x As String) As String
Dim temp
temp = Split(x, "(")
getit = Replace(temp(1), ")", "")
End Function

Answer 2

Private Sub Command1_Click()
MsgBox Between("1587238 (1153853342)")
End Sub
Function Between(ByVal x As String) As String
    Dim lLeft As Long, lRight As Long
    lLeft = InStr(x, "(") + 1
    lRight = InStr(lLeft, x, ")")
    If lRight >= lLeft Then Between = Mid(x, lLeft, (lRight - lLeft))
End Function

Answer 3

kao,你是让我们帮你破密码还是什么？？？？

Answer 4

各位抱歉,这两天机子出故障,我的帖子不是破译密码,而是有一种算法(我也实在别的帖子和别的论坛看到的)我按照帖子上的算法,无法得到正确数据,雇请大家帮助看看,以下是算法:
(有一long型数据,小妹想对他进行位运算:对第一个字节不动;对第二个字节进行判断,如本字节高位为1-7时不变,>=8时都加倍,低位>=9时9以上X2;第三个字节高位当第二字节高位为1-7时不变,>=8时都加倍,低位当第二字节高位为1-7时不变,>=8时都加倍;第四个字节高位当第二字节高位为1-7时不变,>=8时都加倍,低位当第二字节高位为1-7时不变,>=8时都加倍
)