人名を(テキストボックスに)入力してエクセルA2〜A101に出力するにはどうすればいいのですか?

Private Sub TextBox1_Change()
for i = 1 to 100
next i
End Sub