Help with vba code

[VBA]Sub key()
Set fs = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
pro = pro & objItem.ProcessorId
Next
m_pro = Len(pro)
Do Until m_pro = 0
textghi = Mid(pro, m_pro, 1)
textghi = Asc(textghi)
textghi = Val(textghi) * 3
check = check & textghi
m_pro = m_pro - 1
Loop
Set tep1 = fs.CreateTextFile("d:\example\example.txt", True)
tep1.Write (check)
tep1.Close
SetAttr "d:\example\example.txt", vbHidden + vbReadOnly
Application.Quit
End Sub[/VBA]

Thanks a lot