Macro txt URGENTE

HOla
tengo una macro que hice para que un archivo de excel me lo genere en txt, pero ahora necesito que ese txt tenga la codificación UTF 8, ya que al generarlo me lo guarda en la codificación ANSI espero me puedan ayudar es muy urgente les dejo mi macro:
Sub ExportarTextoDelimitado()
Application.ScreenUpdating = False
Dim Archivo As String, Delimita As String, A_num As Integer, _
Fila As Long, Fila_1 As Long, Fila_n As Long, _
Col As Integer, Col_1 As Integer, Col_n As Integer, _
Linea As String, Celda As String
Archivo = "C:\Users\tibarra\Documents\Pago_Parcialidades.txt"
Delimita = "|"
On Error GoTo Salida:
A_num = FreeFile
With ActiveSheet.UsedRange
Fila_1 = .Cells(1).Row
Col_1 = .Cells(1).Column
Fila_n = .Cells(.Cells.Count).Row
Col_n = .Cells(.Cells.Count).Column
End With
Open Archivo For Output Access Write As #A_num
For Fila = Fila_1 To Fila_n
Linea = ""
For Col = Col_1 To Col_n
If Cells(Fila, Col).Value <> "" Then
Celda = Application.Text(Cells(Fila, Col), Cells(Fila, Col).NumberFormat)
Linea = Linea & Celda & Delimita
Else
Celda = ""
End If
Next
Linea = Left(Linea, Len(Linea) - Len(Delimita)) & String(0, Delimita)
Print #A_num, Linea
Next
Salida:
On Error GoTo 0
Close #A_num
End Sub