Module Module1
    Sub Main()
	Dim szoveg As String
	Dim meret As Integer

	szoveg = "alma:körte:barack"
	meret = Len(szoveg)

	Console.WriteLine(meret)
    End Sub
End Module