1～43までの数字を6つランダムに選ぶサンプルです。
おもしろそうなのでロト6用につくりました。
責任とれませんので、このスクリプトで生成した数字では買わないでください！

Dim rotoList
Set rotoList = CreateObject("System.Collections.ArrayList")
'ランダム関数の初期化（これを実行しないと毎回同じ結果になります。）
Randomize
For I = 1 To 6
	Do
		Dim value
		value = Int((43 * Rnd) + 1)   ' 1 ～ 43 のランダムな値を生成します。

		Dim ret
		If I = 1 then
			ret = 0
			rotoList.add value
		Else
			ret = rotoList.Contains(value)
		End If
		if ret = 0 then
			rotoList.add value
			Exit Do
		End if
	Loop
Next

Dim i,dispStr
Dim iMax : iMax = rotoList.Count - 1

'ランダムに決定した6つの数字を表示
For i=0 To iMax
	If i = 0 Then
		dispStr = dispStr
	Else
		dispStr = dispStr & " " & rotoList(i)
	End If
Next
MsgBox dispStr

Pocket