何度もすいません。
記述はこんな感じです。
シードは設定していません。

Dim k As Integer
Dim sRnd As String
For k = 1 To 7
　　sRnd = sRnd & CInt(Int(Rnd() * 10))
Next

これにユーザーの入力した文字列の特定の部分を取り出して
abc4597152 のようなキーを作っているのですが。

生成されたデータを見ると、bui1234567 , iii1234567 , hhh1234567
のような乱数生成の部分だけやたら重複したデータが発生しています。