Como modificar código vba para eliminar ";" al final de la línea

Comunidad de todo expertos,

En esta oportunidad estoy solicitando ayudo respecto a lo siguiente:

Con el siguiente código estoy generando un archivo separado por “;” y con extensión ".csv ". El código funciona perfecto a excepción del “;” que me pone al final.

 Sub anexo1csv()

    Dim UltFil As Integer

    Dim UltCol As Integer

    Sheets("anexo1").Select

    UltCol = Cells(1, Columns.Count).End(xlToLeft).Column

    UltFil = Cells(Rows.Count, 1).End(xlUp).Row

    Open Path & "C:\Documentos\Archivos CSV\anexo1.csv" For Output As #1

        For Fil = 1 To UltFil

            For Col = 1 To UltCol

                Temp = Temp & Cells(Fil, Col) & ";"

            Next

            Print #1, Temp

            Temp = ""

        Next

    Close #1

End Sub

 El resultado este archivo de texto:

05/03/2021;1;03;25842016;16CH000F;0324;0324;1082302;JUANA;0.00;0.00;44.25;5.75;0.;50.00;1;

12/03/2021;1;03;25842016;16CH000F;0325;0325;1399157;MEDIPROCT,S.A..00;13.27;1.73;00;15.00;1;

12/03/2021;1;03;25842016;16CH000F;0325;0325;1399157;MEDIPROCT,S.A..00;13.27;1.73;00;15.00;1;

15/03/2021;1;03;16CH000F;0328;0328;1503;CENTRO, S.A. DEC.V.;0.00;0.00;397.36;51.66;449.02;1;

29/03/2021;1;03;16CH000F;0329;0329;1399157;MEDIPROCT, S.A. E C.V.;0.00;0.00;14.16;1.84;16.00;1;

Necesito eliminar el ";" que pone al final de cada línea,

Como se tendría que modificar el código.?