"VBA" Programlama dilinde "1'den N'e Kadar Asal Sayıları Üretme Örneği" ile ilgili örnek kod aşağıda gösterilmiştir.

Sub Main()
    Dim number As Integer
    number = InputBox("Aralık Değeri Girin:")
    
    Dim num As Integer
    For num = 2 To number
        Dim isPrime As Boolean
        isPrime = True
        
        Dim i As Integer
        For i = 2 To num / 2
            If num Mod i = 0 Then
                isPrime = False
                Exit For
            End If
        Next i
        
        If isPrime = True Then
            Debug.Print num
        End If
    Next num
End Sub