Dim M(12)
For i = 1 To 12
M(i) = Mid(JuhNiKeta, i, 1)
Next i
SujiGouKei = M(1) + 3 * M(2) + M(3) + 3 * M(4) + M(5) + 3 * M(6) + M(7) + 3 * M(8) + M(9) + 3 * M(10) + M(11) + 3 * M(12)
ChkDgt = Right(10 - (SujiGouKei - Int(SujiGouKei / 10) * 10), 1)