numeros primos

[fractalia]

hola david...
bueno en el lenguaje en el q estoy trabajando es VB...
soy novata en esto..
y lo q llevo es:

Public Class Form22
Dim vector(5) As Integer
Dim c As Integer = 0
Dim num_rep As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 4
If c > 5 Then
MsgBox("El vector esta lleno")
Else
vector(c) = CInt(InputBox("digite el numero"))
ListBox1.Items.Add(vector(c))
c = c + 1
End If
Next
End Sub

Gracias...