variant 如何转为integer？？

Option Explicit

    Dim sTemp As String

    Dim yTemp() As Byte

    Dim Hsum As Integer

    Dim strData As String

    Dim intSj() As Integer

Private Sub Form_Load()

    MSComm1.Settings = "9600,n,8,1"

    MSComm1.CommPort = 1

    MSComm1.InputMode = comInputModeBinary '二进读取制模式

    MSComm1.RThreshold = 1

    MSComm1.SThreshold = 0

    MSComm1.PortOpen = True

End Sub



Private Sub MSComm1_OnComm()

    Dim ss As Variant

    Dim ww As String '定义临时变量

    Dim i, a As Integer

    Select Case MSComm1.CommEvent   'Select Case 语句分解事件

        Case comEvReceive

            ss = MSComm1.Input

            sTemp = StrConv(ss, vbUnicode) '转换为Unicode

            yTemp = StrConv(sTemp, vbFromUnicode) '转换为Byte

            Hsum = UBound(yTemp)

            Dim j As Integer

            For j = 0 To Hsum '转换为16进制

                If Len(Hex(yTemp(j))) = 1 Then

                    strData = strData & "0" & Hex(yTemp(j))

                Else

                    strData = strData & Hex(yTemp(j))

                End If

            Next

            zh '转换为Integer

    End Select

End Sub



Public Sub zh()

    Dim l As Integer

    ReDim intSj((Len(strData) / 4) - 1)

    For l = 1 To Len(strData) Step 4

        intSj((l - 1) / 4) = Val("&H" & Mid(strData, l, 4))

        Print intSj(l / 4)

    Next l

End Sub