ポリモルね

'オブジェクト名 Module1
Option Explicit
Public Sub Main()
　　Dim c As chara2ch
　　Dim n As Integer
　　n = 1 'てきとーに変えてな
　　Select Case n
　　Case 0
　　　　Set c = New giko
　　Case 1
　　　　Set c = New siraneeyo
　　Case 2
　　　　Set c = New mona
　　End Select
　　Call c.talk
End Sub

'オブジェクト名 chara2ch
Option Explicit
Public Sub talk()
End Sub

'オブジェクト名 giko
Option Explicit
Implements chara2ch
Private Sub chara2ch_talk()
　　MsgBox "逝ってよし"
End Sub

'オブジェクト名 siraneeyo
Option Explicit
Implements chara2ch
Private Sub chara2ch_talk()
　　MsgBox "逝っていいんじゃねーの"
End Sub

'オブジェクト名 mona
Option Explicit
Implements chara2ch
Private Sub chara2ch_talk()
　　MsgBox "逝っていいモナー"
End Sub