Sub ParseNumber(FindStr As String) As Int
StartPos=FindStr.IndexOf("(")+1
If StartPos <> 0 Then
EndPos=StartPos
Do While EndPos < FindStr.Length
EndPos=EndPos+1
If FindStr.CharAt(EndPos) = " " OR FindStr.CharAt(EndPos) = "." Then 'Just make sure it's an Int
Exit
End If
Loop
Num = FindStr.SubString2(StartPos,EndPos)
If IsNumber(Num) Then Return Num
End If
Return -1
End Sub