Option Explicit
Option Private Module
'====================================================================================================
Sub Sub1(par1&, par2$, par3&)
Dim arr(2) As String

arr(0) = par1 & " — " & TypeName(par1)
arr(1) = par2 & " — " & TypeName(par2)
arr(2) = par3 & " — " & TypeName(par3)

MsgBox Join(arr, vbLf)
End Sub
'====================================================================================================
'====================================================================================================
Sub CallSub1_1()
Sub1 1, "abc", 2 ' transform to «Sub2 2,"abc",True»
End Sub
'----------------------------------------------------------------------------------------------------
Sub CallSub1_2()
Sub1 2, "bcd", 3 ' transform to «Sub2 3,"bcd",True»
End Sub
'----------------------------------------------------------------------------------------------------
Sub CallSub1_3()
Sub1 3, "cde", 4 ' transform to «Sub2 4,"cde",True»
End Sub
'====================================================================================================
'====================================================================================================
Sub Sub2(par3&, par2$, par4 As Boolean)
Dim arr(2) As String

arr(0) = par3 & " — " & TypeName(par3)
arr(1) = par2 & " — " & TypeName(par2)
arr(2) = par4 & " — " & TypeName(par4)

MsgBox Join(arr, vbLf)
End Sub
'====================================================================================================