Type TParam
    PictureName As String
    Name As String
    PersonalAcc As String
    BankName As String
    BIC As String
    CorrespAcc As String
    Sum As String
    PayeeINN As String
    LastName As String
    FirstName As String
    MiddleName As String
    PayerAddress As String
    PersAcc As String
    ' ....
    PaymPeriod As String
End Type

Function set_param(cur As TParam)
     Debug.Print cur.FirstName ' просто тест
     ' ...
End Function

Sub main()
     Dim something As TParam
     With something
         .Name = "abc"
         .FirstName = "Xyz"
         .PayeeINN = "1234567890"
     End With
     Call set_param(something)
End Sub

Option Explicit

Sub test()
     ParamArrayDemo True, 1, 1&, "string"
End Sub

Function ParamArrayDemo(ParamArray arglist()) As Double
     Dim arg
     For Each arg In arglist
         Debug.Print TypeName(arg); ":", arg
     Next arg
End Function

   With something
         .Name = "abc"
         .FirstName = "Xyz"
         .PayeeINN = "1234567890"
     End With