problem with automatic count

[nokmaster]

how to put automatic count?

this is my 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

[jeroen79]

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.

[nokmaster]

what you mean sir?

this one?

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