提取机器码中的数字，并重新形成一个新的数字
如：CE552-CED91-EA10C-B925R
应当形成一个5529110925，还有一个特殊情况，如箱一个数字是0，如C0E552-CED91-EA10C-B925R，则把0换成7，应当是75529110925，如何写代码

Function GetNewNumber(Byval strNum As String) As String
Dim iLen,i As Integer
Dim strTmp As String
iLen=Len(strNum)
For i=1 to iLen
  strTmp =Mid(strNum,i,1)
     IF isNumeric(strTmp) Then
        GetNewNumber=GetNewNumber & strTmp
     End IF
Next
 If Left(GetNewNumber,1)="0" Then GetNewNumber="7" & Mid(GetNewNumber,2)
End Function

2楼赞~