Function fRegExpReplace(strIN As String) As String
Dim objRegExp As Object
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    objRegExp.IgnoreCase = True
    objRegExp.Pattern = "[^0-9]"
    fRegExpReplace = objRegExp.Replace(strIN, "")
End Function
Private Sub Form_Load()
    strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
        Ïîëå1 = objItem.ProcessorId
    Next
End Sub