چطور نوشته هاي يك فايل ini را تفكيك كنم

[swallow.pa]

سلام دوستان
يك فايل ini دارم كه اين نوشته ها توشه:


1394,1,فروردين

خب اگه دقت كنيد بين اينها يك , گذاشتم حاالا اين سه ايتم 1 و 1394 و فروردين رو مي خوام توي يك متغير بريزم
من مي دونم براي خوندن فايل ini از اين روش استفاده مي كنم


Dim str As String = My.Computer.FileSystem.ReadAllText(App_Path)

كه همه چيز توي متغير str هست حالا چطور اون سه تا داده رو تفكيك كنم
ممنونم

[as987498749874]

Dim A() As String = Split("A,B,C,D,E", ",")
For i As Integer = 0 To UBound(A)
MsgBox(A(i))
Next