Futsal RT 4/3 Cikiwul vs DPRa PKS Cikiwul 11-7

Lanjutan Kompetisi Futsal kembali dimulai di daerah Cikiwul. Kedua wakil dari Cikiwul terlibat pertempuran yang sangat seru.
Tim DPRa PKS Cikiwul yang dimotori oleh Dedi 'Ogi' dan Vicky terlalu lemah karena tidak didukung oleh pemain lain. Beda dengan tim lawan yang hampir semuanya bermain cukup apik dan muda-muda. Meskipun begitu mencetak 7 gol cukup bagus, mengingat pekan lalu Tim PKS Cikiwul menang WO. Dengan sumbangan gol terbesar dari Vicky (4 gol).
Dedi 'Ogi' pemain yang lebih muda, bermain dari belakang ke tengah, merupakan Man of The Match pada pertandingan ini. Umpan-umpannya banyak akurat sehingga Striker Vicky berhasil banyak mencetak gol. Meskipun, banyak peluang-peluang dari Vicky yang terlewat begitu saja. Dan tendangan geledek Ogi betul-betul cukup mematikan.

Sementara pemain lawan bermain cukup rileks, dengan banyaknya memainkan bola di kaki sendiri. Apalagi ditunjang dengan skill yang cukup tinggi.

Di menit-menit terakhir ketua RT 4/3 Cikiwul, Bapak Yandi masuk ke dalam lapangan untuk menyokong permainan warganya.

O, ya, Ketua DPRa PKS Cikiwul, Bapak Amirudin, pun turut serta menyumbang 1 gol. Beliau merupakan pemain tertua di lapangan. Namun semangat mudanya telah membangkitkan permainan anak buahnya.

Function Split : Parse String Using A Spesific Delimiter

Function Visual Basic

You can split the string "Cats,Dogs,Horses,Birds" to the substrings "Cats", "Dogs", "Horses" and "Birds".
The code below use the function 'split' that available only in VB 6.0 and above.

Private Sub Form_Load()
Dim strAnimals As String
Dim iCounter As Integer
Dim arrAnimals() As String

strAnimals = "Cats,Dogs,Horses,Birds"
'replace the "," below with your delimiter
arrAnimals = Split(strAnimals, ",")

For iCounter = LBound(arrAnimals) To UBound(arrAnimals)
MsgBox arrAnimals(iCounter)
Next

End Sub

Function For Each in Array

Dim arrKata() as string
Dim arrX as Variant ' Harus Variant

For Each arrX In arrKata
MsgBox arrX ' Menampilkan seluruh variabel array
Next