Module Module1
    Sub Main()
	Dim szoveg As String
	Dim tomb(4) As String

	szoveg = "alma:körte:barack"
	tomb = Split(szoveg, ":")

	Console.WriteLine(tomb(1))
	
    End Sub
End Module