用VB编程,求出个位数为6、能被3整除、且十位数是偶数的三位数共有多少个

Private Sub Command1_Click()
For i = 100 To 999
If Mid(i,2,1) Mod 2 = 0 And Mid(i,3,1) Mod 3 = 0 And Mid(i,3,1) Mod 6 = 0 Then Print i
Next
End Su