Replace funktion æ og ø og å

Ved udtræk fra en database, får jeg disse mærkelige tegn istedet for æøå
æ = '
ø = 
Kan man ikke lave en replace funktion, såm ændrer disse tegn til æøå?

Hvordan skal det i givet fald se ud?

Jeg har fundet denne, men hvordan skal den flettes ind i min kode???????????

Function replace1(VAR)

    VAR = replace("" & VAR,"‘","æ")
    'erstatter ›
    VAR = replace("" & VAR,"›","ø")
    'erstatter †
    VAR = replace("" & VAR,"†","å")
    'erstatter '
    VAR = replace("" & VAR,"'","''")
    replace1 = VAR
End Function