Visual Basic - Separacion con comas

Hola a todos. Mi problema es el siguiente, tengo un archivo *.csv, el cual es un archivo secuencial, al leerlo necesito separar cada campo por una coma y ese valor almacenarlo en una variable.

¿Como puedo hacer para separar mi informacion por medio de comas?

cuando imprimas en el archivo usa la funcion Write en lugar del Print, esa funcion te separa las variables con comas y las lee por separado con el Input.

Puedes leer el archivo, pasarlo a un String y luego manipularlo por filas y Columnas, por ejemplo:

Archivo = FileToString("MiArchivo.csv")
Lineas = Split(Archivo,vbCrLf)

Luego Lineas es un vector que contiene cada fila del archivo, luego si es delimitado por comas puedes hacer:

For i=LBound(Lineas) To UBound(Lineas)
Columnas = Split(Lineas(i),",")
For j=LBound(Columnas) To UBound(Columnas)
Debug.Print Columnas(j)
Next j
Next i

Luego Columnas es un vector que contiene cada campo que delimita cada coma.

La función para pasar un archivo a un String es:

Public Function FileToString(FileName As String) As String
On Error GoTo ErrorHandler

Dim hlngFile As Long, strFile As String

hlngFile = FreeFile

Open FileName For Binary Access Read As hlngFile

FileToString = vbNullString

strFile = String(FileLen(FileName), " ")

Get hlngFile, , strFile

Close hlngFile

FileToString = strFile

Exit Function

ErrorHandler:
FileToString = Empty
End Function