Sub Sample()
Dim myName As Variant, buf As String
Dim msg As String, i As Long
Open "C:\Test.csv" For Binary As #1
buf = Space(FileLen("C:\Test.csv"))
Get #1, , buf
Close #1
myName = Split(buf, ",")
For i = 0 To UBound(myName)
msg = msg & myName(i) & vbCrLf
Next i
MsgBox msg
End Sub