Çözüldü TXT dosyası Excel'e aktarılırken Türkçe karakterler bozuk çıkıyor

Sub ExcelTurkey()
    Dim St As Object, yol$, ayir
    Set St = CreateObject("ADODB.Stream")
    yol = ThisWorkbook.Path & "\TemsKuruluSohbeti.txt"
    St.Charset = "utf-8"
    St.Open
    St.LoadFromFile (yol)
    ayir = Split(St.ReadText, Chr(10))
    Range("A1").Resize(UBound(ayir), 1) = Application.Transpose(ayir)
    St.Close
    Set St = Nothing: Erase ayir: yol = ""
End Sub