Option Explicit

Public Sub UseLogger()
    Dim logger As Ilogger
    Randomize
    If Rnd > 0.5 Then
        Set logger = New DebugLogger
    Else
        Set logger = New ExcelLogger
    End If
    logger.Log "test message"
End Sub