Dim m_strOutTask(5) As Long, sum As Long, i As Integer
sum = &H0
m_strOutTask(0) = &HFF
m_strOutTask(1) = &HFF
m_strOutTask(2) = &HFF
m_strOutTask(3) = &H1F
m_strOutTask(4) = &H2F
m_strOutTask(5) = &H3F
For i = 0 To 5
sum = sum + m_strOutTask(i)
Next i
MsgBox Hex(sum)