Excel: Kommafil i kolonne og ikke række

Sub HentFil()

    Dim sFilepath As String, i As Long, sText As String, sCols() As String
    sFilepath = "C:\DinTekstFil.txt"  <<< denne skal ændres
    i = FreeFile
    Open sFilepath For Input As i
    sText = Input(LOF(i), #i)
    Close i
    sCols = Split(sText, ",", , vbTextCompare)
    For i = 1 To UBound(sCols) + 1     Her ændres evt. også:
        Cells(i, 1).Value = sCols(i - 1)
    Next i
    
End Sub