Добавить цикл Do - Loop в программу - VB

Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
For i = Text1 To Text2
    Key = False
    For j = 2 To i - 2
        r = i Mod j
        If r = 0 Then Key = True
    Next
    If Not Key Then
    If i <> 2 Then
        k = k + 1
        Picture2.Print i;
        p = k Mod 19
        If p = 0 Then Picture2.Print
        End If
    End If
Next
Picture1.Print k
End Sub