Dim eil As String
Dim es As Variant
Dim Failas As Integer
Failas = FreeFile()
Open "e:\report.txt " For Input As #FileNum
While Not EOF(FileNum)
	Line Input #FileNum, eil
	eil = Application.Trim(eil)
	es = Split(eil, " ")
	If UBound(es) = 4 Then
		MsgBox (es(0) & ": Set " & es(2) & ", Act " & es(3))
	ElseIf UBound(es) > 0 Then
		If es(0) = "Date:" Then MsgBox ("Data: " & Format(es(1), "yyyy-MM-dd"))
		If es(0) = "Time:" Then MsgBox ("Laikas: " & Format(es(1) & " " & es(2), "hh:mm"))
	End If
Wend