splitle önce verideki boşlukları sildir şu şekilde

veri = Replace(veri," ","")
veri = Trim(veri) ' başını sonunuda kontrol ettin

veriayir = Split(veri,",")

For k = 0 to Ubound(veriayir)
' içeriyede döngüde ne kontrol edicek onu söylersin eğer bulduktan sonra döngüden çıkmak istersende kodun hemen alt satırına Exit For yaz döngüden atsın

' döngüdeki veriyide -> veriayir(k) ile alıcaksın
Next


tamamen senin çözümüne kalmış nasıl çözersen çöz