Dim sr as System.IO.StreamReader
  Try
    sr = New System.IO.StreamReader(FileName)
    Dim allText as String = sr.ReadToEnd()
  Catch ex as Exception
    stylestat.Text = "Fehler beim Öffnen der Datei :" & ex.Message  
  Finally 
    sr.Close()
  End Try
  stylefile.Text = OpenFileDialog.FileName
  allText = allText.Replace( "%VORNAME%", Vorname.Text);
  allText = allText.Replace( "%PASSWORT%", Passwort.Text);
  allText = allText.Replace( "%GEBDATE%", GebDate.Text);
  loadedtext.Text = allText;