Public Function XmlGetFileName(ByVal Product As String, ByVal Model As _
      String) As String
        'Load xml-file
        XmlDoc.Load(XmlFilePath)
 
        'Some definitions
        Dim ModelName As String
        Dim ModelFileName As String
 
        'Get filename
        For i As Integer = 0 To XmlDoc.ChildNodes(1).SelectSingleNode( _
          Product).ChildNodes.Count - 1 Step 1
            ModelName = XmlDoc.ChildNodes(1).SelectSingleNode( _
            Product).ChildNodes(i).Attributes("Model").Value.ToString
            If ModelName = Model Then
                ModelFileName = XmlDoc.ChildNodes(1).SelectSingleNode( _
                  Product).ChildNodes(i).Attributes("ModelFile").Value.ToString
                Return ModelFileName
                Exit For
            End If
        Next
    End Function