VB下如何读取cmos的信息,只有40分了，急等

Option Explicit On
Public Class Form1
Declare Function GetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByRef PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function SetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function InitializeWinIo Lib "WinIo.dll" () As Boolean
Declare Function ShutdownWinIo Lib "WinIo.dll" () As Boolean
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '-----Sleep函数 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If a = False Then
            MsgBox("Whoops ! There is a problem with InitializeWinIo.", vbOKOnly + vbCritical, "TEST")
            Call ShutdownWinIo()
        End If
        Dim Data As Long
        Dim i As Long
        For i = 101 To 103
            'MsgBox("&H" & Hex(i))
            SetPortVal("&H70", "&H" & Hex(i), 1)
            Sleep(1)
            'GetPortVal("&H71", Data, 1)
            MsgBox(GetPortVal("&H71", Data, 1))
            MsgBox(i.ToString & "  " & Data.ToString)
            Data = 0
        Next
    End Sub
END class
我要读cmos里的65H.66H,67H;
怎么读出来的数据都是０啊？
帮忙看看出啥问题了．．．．
系统：Win XP,VB2008;