By assuming that all the values are separated by commas
#max number of elements
max_m<-max(unlist(lapply(strsplit(exmp,","),length)))
#all rows should have same length
lapply(strsplit(Names,','),function(x) {length(x) <- max_m;x})
#Create a data Frame
ras <- do.call(rbind,lapply(strsplit(Names,','),function(x) {length(x) <- max_m;x}))
#save the file
write.csv(ras,'output.csv')