problem with automatic count

how to put automatic count?

this is my code:

VB Code:

calc_pm = "1e0010230014000d1004000100"
last_pm = "000000000000000000560140"
 
xor_pm = XorHex(calc_pm & "00" & last_pm)
 
FT_RES = SendToDevA(calc_pm & "00" & last_pm & xor_pm, &H1)
 
cH = ""
    For i = 34 To UBound(FT_In_Buffer)
        cH = cH & Chr$(FT_In_Buffer(i))
    Next i
    ConvThisText = cH
    ConvToHex ConvThisText
    cH = ConvThisText
    
pm0 = cH

you will see the "00" after the string readed from pm0 = cH
need to change immedietely the "00" into "01" and save into new string perform again.. "01" change into "02" and save it in another string.. up to 10

Where does that "00" come from?

Use Format(counter, "00") to format a number into a two digit string.
COunter is a variable that you increment by 1 every time you go through this function.

what you mean sir?

this one?

VB Code:

Dim counter as integer
 
Text1.Text = Format(counter, "00")