Private Sub Command1_Click() Dim i As Integer For i = 100 To 999 If prime(i) And prime(convert(i)) Then list1.AddItem i End If Next i End Sub Private Function prime(x As Integer) As Boolean Dim i As Integer For i = 2 To Int(Sqr(x)) If x Mod i = 0 Then Exit Function End If Next i prime = True End Function