VB.net xml vérifier élément existe et si elle a une valeur

J'ai un xml, ant, je suis en train de chcke si un élément existe et si oui, alors si elle a une valeur

exemple xml:

<Attributes Version="1.0.2012">  
   <OpenAtStart>True</OpenAtStart>  
   <RefreshTime>60</RefreshTime>  
 </Attributes>  

Je tiens donc à vérifier si OpenAtStart existe et puis je veux vérifier si elle a une valeur :
J'ai donc intégré la fonction , ci-dessous

Private Function existsOrEmpty(ByVal type As Type, ByVal node As XmlNode, ByVal defaultValue As Object) As Object
Dim myObj As Object = Nothing
Try
Cursor.Current = Cursors.WaitCursor
If node IsNot Nothing Then
Select Case type
Case GetType(Integer)
If Integer.TryParse(node.InnerText, myObj) = False Then
myObj = defaultValue
End If
Case GetType(Double)
If Double.TryParse(node.InnerText, myObj) = False Then
myObj = defaultValue
End If
Case GetType(Boolean)
If Boolean.TryParse(node.InnerText, myObj) = False Then
myObj = defaultValue
End If
Case Else
myObj = node.InnerText
End Select
Else
myObj = defaultValue
End If
Catch ex As Exception
gError.GetAppEx(ex, CLASS_NAME & ".existsOrEmpty")
Finally
Cursor.Current = Cursors.Default
End Try
Return myObj
End Function

Est-ce une bonne façon ou il y a une meilleure, plus rapide ?

Grâce

InformationsquelleAutor Nianios | 2012-07-23