Dim d(100) As Long, cnt As Long, Rcnt As Long
Dim i As Long
d(0) = 2
cnt = 2
Rcnt = 1
Do
　　cnt = cnt + 1
　　For i = 0 To Rcnt - 1
　　　　If cnt Mod d(i) = 0 Then
　　　　　　i = -1
　　　　　　Exit For
　　　　End If
　　Next i
　　If i <> -1 Then
　　　　d(Rcnt) = cnt
　　　　Rcnt = Rcnt + 1
　　　　Debug.Print cnt
　　End If
Loop Until Rcnt = 100