Private Sub cmdKodiranje_Click() Dim sText As String sText = Text1.Box Call dekodiranje(sText) Text2.Text = sText sText = Text3.Box Call dekodiranje(sText) Text4.Text = sText sText = Text5.Box Call dekodiranje(sText) Text6.Text = sText End Sub