VB6 Overloaded Methods

Private Sub Form_Load()
    
    MsgBoxPlus &H11223344
    MsgBoxPlus Array("this is line 1", "and line 2 here")
    MsgBoxPlus "just a regular string!"
    MsgBoxPlus CCur(247.99)
    
End Sub

Sub MsgBoxPlus(msg As Variant)
    
    If TypeName(msg) = "Integer" Or TypeName(msg) = "Long" Then
        MsgBox Hex(msg)
    ElseIf IsArray(msg) Then
        MsgBox Join(msg, vbCrLf)
    Else
        MsgBox msg
    End If
    
End Sub