Reg_dword

[frozen]

Public Function ComputerProcessor() As String
    On Error GoTo ErrorHandler
    Dim hKey As Long
    Dim Processor As String
    Dim MHz As Long
    ComputerProcessor = ""
    If RegOpenKeyEx(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", 0, KEY_ALL_ACCESS, hKey) <> ERROR_SUCCESS Then
        Form2.DebugPrint "ComputerProcessor.RegOpenKeyEx failed" & Err.Number
        GoTo hClose
    End If
    Processor = Space$(128)
    If RegQueryValueEx(hKey, "ProcessorNameString", 0&, REG_SZ, Processor, Len(Processor)) <> ERROR_SUCCESS Then
        Form2.DebugPrint "ComputerProcessor.RegQueryValueEx(ProcessorNameString) failed" & Err.Number
        GoTo hClose
    End If
    Processor = Left$(Processor, InStr(Processor, Chr(0)) - 1)
    If RegQueryValueEx(hKey, "~MHz", 0&, REG_DWORD, MHz, 4&) <> ERROR_SUCCESS Then
        Form2.DebugPrint "ComputerProcessor.RegQueryValueEx(MHz) failed" & Err.Number
        GoTo hClose
    End If
    ComputerProcessor = Processor & " (" & MHz & "MHz)"
hClose:
    RegCloseKey hKey
    Exit Function
ErrorHandler:
    Form2.DebugPrint "ComputerProcessor.Error: " & Err.Number
End Function

Returns "AMD Athlon(tm) XP 3000+ (0MHz)", whats wrong?