<MenuFont value="Arial" />

MenuStrip.Font = xmlAccess(True, "appearance", "MenuFont", 0)

    Function xmlAccess(ByVal readWrite As Boolean, ByVal category As String, _
      ByVal configName As String, ByVal configValue As String)
        Dim read As New classXML
        Dim ausgabe = 0
 
        If readWrite = True Then
            ausgabe = read.XMLRead(category, configName)
        Else
            read.XMLWriter(category, configName, configValue)
        End If
 
        Return ausgabe
    End Function

Function XMLRead(ByVal category As String, ByVal configName As String)
        On Error Resume Next
 
        Dim XMLReader As Xml.XmlReader _
          = New Xml.XmlTextReader("bin\config.xml")
        Dim ausgabe As Object
 
        With XMLReader
            Do While .Read
                Select Case .NodeType
                    Case Xml.XmlNodeType.Element
                        If .Name = configName Then
                            If .AttributeCount > 0 Then
                                While .MoveToNextAttribute
                                    ausgabe = .Value
                                End While
                            End If
                        End If
                End Select
            Loop
            .Close()
        End With
        Return ausgabe
 
    End Function
End Class