Public Class ProjektNeu
 
    Private config As New c_xml("\config\config.xml")
 
    Private Sub checkStandard()
        Dim helper As String = config.getSingle("Vorlage")
        'Dim helper As String = "Vorlage1"
        If Not System.IO.File.Exists(Application.StartupPath & "\templates\" & _
          helper & ".xml") Then
            rb_Standard.Checked = False
            rb_Auswahl.Checked = True
            rb_Standard.Enabled = False
        End If
    End Sub

Public class c_xml
(...)
Public Function getSingle(ByVal name As String) As String
        If TypeOf xml Is Xml.XmlDocument Then
            Return xml.SelectSingleNode(name).InnerText()
        Else
            Return False
        End If
    End Function

Public Class Einstellungen
    'Dim-Area
    Private cfg As New Dictionary(Of String, String)
    Private datei As New c_xml("\config\config.xml")
 
    Private Sub Einstellungen_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        cfg = datei.exportArray()
        Call ladeSprache()
        Call ladeVorlage()
 
    End Sub