>>あ

Dim ぼく As New Human()
ぼく.Write("●●●")
Dim わたし As Human = Boku.Clone
わたし.Write("□□□")

ってことかな？