Function GetA() As Object
End Function

Dim a = GetA()
a.Hoge()
古い人なら普通に書きそうだな