Hi Dancul!
something like below:
Sub Macro1()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & [a1] & [a2], Destination:=Range("$A$3"))
        .TextFilePlatform = 65001   'UTF-8 format
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=True
    End With
End Sub