Membuat Check Digit Pada Barcode Interleaved 2 of 5 pada vb6

Check Digit  Digit terakhir dari barcode, digunakan untuk verifikasi bahwa barcode telah dipindai dengan benar
Berikut adalah code nya

Dim data as string
Data = ""     'isi dengan punya mu sendiri
i = 1
  While i <= Len(DaTa)
        x = x + Val(Mid(DaTa, i, 1))
        y = y + Val(Mid(DaTa, i + 1, 1))
        i = i + 2
  Wend
  x = x * 3
  i = (10 - (x + y) Mod 10) Mod 10
  DaTa = DaTa + Trim(Str(i))