Word VBA で 3 の倍数のときだけ・・・

Word　VBA　で 3 の倍数のときだけアホと表示されるプログラムです↓
Sub IfThen()

Dim i As Integer
For i = 1 To 20
If i Mod 3 = 0 Then
Selection.TypeText Text:="アホ" + Chr(13)
Else
Selection.TypeText Text:=Str(i) + Chr(13)
End If
Next
End Sub

ただそれだけなんすけど何か？