Dim PasswortArray(4) As Array
        Dim i As Integer = 1
 
        Try
            Dim sr As New IO.StreamReader(MMI.SettingsDIR & "\Passwort.txt")
 
            While sr.Peek > -1
                PasswortArray(i) = sr.ReadLine
                i = i + 1
            End While
            sr.Close()
        Catch ex As Exception
 
        End Try

mfg
rt