Private Sub Command1_Click()
Dim x&, i&
Do
    x = x + 1
    If (x Mod 3 = 0) Or (x Mod 5) = 0 Then
        Print x
        i = i + 1
    End If
    If i >= 10 Then Exit Do
Loop
End Sub