VB6提取机器码中的数字，并重新形成一个新的数字
提取机器码中的数字，并重新形成一个新的数字如：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
