Option Explicit Dim matrica(5) Public Sub ispisi() matrica(1) = "pero" matrica(2) = "medo" matrica(3) = "strbo" matrica(4) = "coso" matrica(5) = "roko" End Sub Public Sub Command1_Click() Dim f As Integer Call ispisi For f = 1 To 5 Text(f) = matrica(f) Next f End Sub Public Sub Command2_Click() End End Sub