For i = 2 To 100
For j = 2 To i
If i Mod j = 0 Then
Exit For
End If
Next
If i = j Then
k = k + i
MsgBox k