Pasar Codigo de VB6 a C++

[luis_carlos_fertl]

Necesito si alguien me ayuda a pasar esta rutina de claculo de chacksum de VB6.0 a C++

'************** Clacula CheckSUM
For i = 1 To Len(CodigoBarras)
CheckSUM = CheckSUM + Val("&H" & Hex(Asc(Mid(CodigoBarras, i, 1))))
Next i
CheckSUM_TMP = Format(Hex(CheckSUM), "000")
CodigoBarras_New = CodigoBarras & CheckSUM_TMP

[osqar]

Yo no entro mucho a este foro pero te puedo ayudar. Decime cual es la duda.

[luis_carlos_fertl]

es que nunca trabaje con c++ solo visual basic y necesito pasar esa rutina a c++, y la verdad que ni idea de como empezar