If System.IO.File.Exists(Application.StartupPath & "\Data\config.cfg") _
          = True Then
            Dim sr As IO.StreamReader = New IO.StreamReader( _
            Application.StartupPath & "\Data\config.cfg", _
            System.Text.Encoding.Default)
            Dim username As String = sr.ReadLine()
            val.user = username
            user.UserName = username
 
        Else
 
            Dim sw As IO.StreamWriter = New IO.StreamWriter( _
              Application.StartupPath & "\Data\config.cfg", False, _
              System.Text.Encoding.Default)
            Dim nutzer As String = InputBox("Bitte geben Sie ihren Vor und" & _
            "Zumnamen ein", "Benutzererfassung", "Frank Mueller")
            nutzer = user.UserName
            sw.WriteLine(nutzer)