læs xml fil med æøå

Hej jeg håber der er en der kan hjælpe, jeg skal læse en xml fil og bruge forskellige værdier derfra.

Dette går også ganske godt, men hvis der er æ,ø,ö eller andre non latin så fejler excel i indlæsningen. Er der nogle der ved hvordan jeg får den til at læse disse karakterer også ?

her er et uddrag af min kode.

Private Sub ReadReceipt(ByVal fileLokation As String)
'create data from a Receipt file (.E)
clearReceiptData

Dim XmlDoc As New DOMDocument30

Dim nodlst As IXMLDOMNodeList
'=========================
'Declaring node variable for the child elements
Dim nod As IXMLDOMNode

'==========================
Dim nodCnt As Long
Dim Data() As String
Dim i, CountPrtry, CountCd As Integer
i = 10
Dim testString As String
XmlDoc.async = False
CountPrtry = 0
CountCd = 0
'Loading the XML file on C drive

If XmlDoc.Load(fileLokation) Then
'==========================
'Assigning root node to the node list variable
Set nodlst = XmlDoc.SelectNodes("/Document/CstmrPmtStsRpt/OrgnlGrpInfAndSts")
Set nod = nodlst(nodCnt).SelectSingleNode("OrgnlMsgId")
Sheets("Reciept File").Cells(3, 2) = nod.text

Set nod = nodlst(nodCnt).SelectSingleNode("GrpSts")
Sheets("Reciept File").Cells(6, 2) = nod.text
Sheets("Reciept File").Cells(6, 3) = lookupCode(nod.text)

If nod.text = "ACCP" Or nod.text = "RJCT" Then
Set nodlst = XmlDoc.SelectNodes("/Document/CstmrPmtStsRpt/OrgnlGrpInfAndSts/StsRsnInf/Rsn")
Set nod = nodlst(nodCnt).SelectSingleNode("Prtry")
Sheets("Reciept File").Cells(6, 4) = nod.text
Sheets("Reciept File").Cells(6, 6) = lookupCode(nod.text)
Exit Sub
End If