Function InfoSIS(Naziv As String) Dim EnvString, Indx, I Do Indx = Indx + 1 EnvString = Environ(Indx) I = InStr(1, EnvString, Naziv, vbTextCompare) If I = 1 Then InfoSIS = Mid(EnvString, Len(Naziv) + 2) GoTo Kraj End If Loop Until EnvString = "" Kraj: End Function