Can someone modify my module to stop it converting Unicode text?

[Potatohead]

I want to stop my module converting unicode into ansi so that I do not lose unicode characters such as greek addresses.



How can I modify my code to incorporate the principle described? http://accessblog.net/2007/06/how-to...-files-in.html

Here is the existing module code:

Public Function formatAddress(v1, v2, v3, v4, v5, v6, v7)
Dim output As String
Dim addressArray(7) As String
Dim i As Integer
addressArray(1) = v1 & ""
addressArray(2) = v2 & ""
addressArray(3) = v3 & ""
addressArray(4) = v4 & ""
addressArray(5) = v5 & ""
addressArray(6) = v6 & ""
addressArray(7) = v7 & ""
i = 1
For i = 1 To 7
If (addressArray(i) = "") = False Then
output = output & addressArray(i) & vbCrLf
End If
Next
formatAddress = output
End Function

I'm not much good at programming, thanks for any help with this!

[orange]

see the material here
http://www.utteraccess.com/forum/ASC...-t1983814.html