Keskustelu: Ohjelmointikysymykset: VB6: Pilikun erotus

Tämä on kopioitu joskus täältä, ku oon kysyny tuosta pilkun jäläkeen lukemisesta ja ny pitäis saada tuo toimimaan niin että sais eroteltua enenmmän kuin yhyren asian pilkun jälkeen.
Väsään huvikseni "peliä" ja siinä ladataan tekstitiedostosta listaan traktorin merkkejä, joiden peräs on pilkulla erotettu teho ja ny tosiaan pitäis saada teho, vääntö ja hinta ja ne pitääs saada vielä eri laabeliille.
Täs on se ku se erottaa labelille vain tehon:

Private Sub koneet_Click()
  Dim Rivi As String
  Dim Pilkku As Integer
  Dim teho As Integer

  Rivi = koneet.List(koneet.ListIndex)

  Pilkku = InStr(Rivi, ",")

  lblTeho.Caption = Right$(Rivi, Len(Rivi) - Pilkku - 1)

Nämä ku sais erotettua eri laabeliille
raktori1, 120hv, 400N, 50000€
raktori2, 200hv, 500N, 100000€

Dim Taulukko() As String
Taulukko=Split(Rivi, ",")
Label1.Caption=Taulukko(0)
Label1.Caption=Taulukko(1)
Label1.Caption=Taulukko(2)
Label1.Caption=Taulukko(3)
'jne

Eli tuo erottelee riviltä , välein taulukkoon tekstin