programa que muestre la suma de los primeros "n" numeros primos

[Jhonnyf]

Pega 2 TextoBox a uno ponle txtN_numero y al otro txtSumaPrimos

un boton cmdCalcular

Código:

Private Sub cmdCalcular_Click()
Dim Suma As Long
If Val(txtN_numero.Text) > 0 Then
Suma = 1
End If
    
    For i = 2 To Val(txtN_numero.Text)
        For j = 2 To i
        
        If (i Mod j = 0) Then
            If j = i Then
                Suma = Suma + i
            End If
            Exit For
        End If
        Next
    Next
    txtSumaPrimos.Text = Suma
End Sub

Saludos!

PD: Si quieres que lo explique ya es otro precio XD