> > http://thom.hateblo.jp/entry/2017/03/05/104720
> > なるほど(;´Д`)
> 絶対やめたほうがいいな(;´Д`)ﾜﾗﾀ
> 素直に関数名変えるべき

関数の中で型判定して分岐して
それぞれの型の処理を書けばいいだけなのでは？(;´Д`)

Sub hoge(obj)
    Dim str As String
    str = TypeName(obj)
    If InStr (str, "Integer") Then
        --数字の場合の処理
    ElseIf InStr (str, "Single")  Then
        --文字の場合の処理
    End If
End Sub

参考：2017/06/29(木)18時08分18秒