Função no Access accdb converter utf-8 para iso-8859-1

Olá caros,
Alguém conhece alguma função para converter utf-8 para iso-8859-1 no ACCESS?

tenho algo parecido no excel, mas no access não funciona 100%

Public Function fnConverterUTF8(ByVal Texto_para_converter As String)
Dim l As Long, sUTF8 As String
Dim iChar As Integer
Dim iChar2 As Integer

For l = 1 To Len(Texto_para_converter)
iChar = Asc(Mid(Texto_para_converter, l, 1))
If iChar > 127 Then
If Not iChar And 32 Then
iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
sUTF8 = sUTF8 & ChrW$(((31 And iChar) * 64 + (63 And iChar2)))
l = l + 1
Else
Dim iChar3 As Integer
iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
iChar3 = Asc(Mid(Texto_para_converter, l + 2, 1))
sUTF8 = sUTF8 & ChrW$(((iChar And 15) * 16 * 256) + ((iChar2 And 63) * 64) + (iChar3 And 63))
l = l + 2
End If
Else
sUTF8 = sUTF8 & Chr$(iChar)
End If
Next l
fnConverterUTF8 = sUTF8
End Function


Desde já obrigado a todos!

Olá LUCICLAUDIO,
Desconheço, mas é imperativo para a criação de algum ficheiro de exportação, pode:
1) ter um ficheiro vazio no formato pretndido.
2) Quando necessário, copiar do ficheiro vazio e utilizar.
Fica a sugestão.
Abraço

Então galera, conforme exemplo acima ele funciona, apenas não executa da maneira correta.
Será que tem que fazer alguma alteração?

Olá,
O que "não executa da maneira correta"?
Como deveria apresentar?
Pode postar exemplo de ficheiro para converter e como deveria ficar.
Assim facilita a compreensão e servirá para teste dos membros que pretendem ajudar.
Abraço