ＡＳＰで伝票番号のチェックデジットを付加する処理を作成しています。

ＳＱＬサーバーのデータベースから伝票番号の読み込み、チェックデジットを
付加して画面に表示したいのです。

ＳＱＬサーバーのデータベースの項目は　ｃｈａｒ　１２バイト　です。
《例》　lpRenjiSt　の　中身は　120100406519　です。

lpRenjiSt = rsRkcrenji("no_renji_st")
Response.Write lpRenjiSt
rsDenBan = ( lpRenjiSt mod 7 )


このＡＳＰを実行すると
Microsoft VBScript 実行時エラー　エラー　'800a0006'
オーバーフローしました。[string "120100406519"]

となりうまく動きません。　型の変換をうまくつかわないといけないと思うのですが
よくわかりません。　いろいろとサイトを検索しましたがわかりませんです。

なにかよい方法はないかアドバイスをお願いします。