Module Module1

Sub Main()
Dim d, i, c As Integer
For d = 1 To 120
c = 0
For i = 1 To d
If d Mod i = 0 Then c = c + 1
Next
If c = 2 Then
Console.WriteLine(d)
End If
Next
Console.ReadKey()
End Sub

End Module