제가 1 부터 100까지 수 가운데 prime number를 출력하게 만들고 싶은데요
이렇게 코드를 짜서 해보니깐 소수가 나오기는 하는데 
출력할때 마지막 숫자만 출력이 되더라구요
한줄로 쭈루룩 내려가면서 출력되도록 하려면 어떻게 해야 하나요??

Private Sub cmdPrint_Click()

Dim i As Integer
Dim a As Integer
Dim b As Integer

While (i <= 100)
    If i Mod 2 <> 0 Then
        If i Mod 3 <> 0 Then
            lblResult.Caption = i
        End If
    End If
    i = i + 1
Wend

    

End Sub