Set oXML = CreateObject("MSXML.DOMDocument")
oXML.async = False
oXML.Load ("C:\_14-13-21.xml")
Worksheets("sheet1").Range("B95").Value = oXML.DocumentElement.SelectSingleNode("Header/description").nodeTypedValue
Worksheets("sheet1").Range("B96").Value = oXML.DocumentElement.SelectSingleNode("Header/domain").nodeTypedValue
Worksheets("sheet1").Range("B97").Value = oXML.DocumentElement.SelectSingleNode("Header/date").nodeTypedValue
Worksheets("sheet1").Range("B98").Value = oXML.DocumentElement.SelectSingleNode("Header/version").nodeTypedValue
Worksheets("sheet1").Range("B99").Value = oXML.DocumentElement.SelectSingleNode("Header/author").nodeTypedValue
Worksheets("sheet1").Range("B100").Value = oXML.DocumentElement.SelectSingleNode("Header/source").nodeTypedValue
Worksheets("sheet1").Range("C101").Value = mobnum.Value '(this is the mobile number text box input for the user)
Dim Test1 As Integer
Dim Test2 As Integer
Dim Test3 As Integer
Dim LgChan As String
Dim LgChan1 As String
Dim LgChan2 As String
Dim LgChan3 As String
Dim LgChan4 As String
Test1 = mobnum.Value
Test2 = FeedBand.Value
Test3 = Channel.Value
LgChan = "TableContents/IPNumber[@" & Test1 & "]"
LgChan1 = "TableContents/IPNumber/FeedBand[@FeedBand=" & Test2 & "]"
LgChan2 = "TableContents/IPNumber/FeedBand/Channel[@Channel=" & Test3 & "]"
LgChan3 = "TableContents/IPNumber/FeedBand/Channel[@Channel=" & Test3 & "]/CMPWRE"
LgChan4 = "TableContents/IPNumber/FeedBand/lChannel[@Channel=" & Test3 & "]/CMPWIM"
Worksheets("sheet1").Range("B101").Value = modnum.Value
Worksheets("sheet1").Range("B102").Value = oXML.DocumentElement.SelectSingleNode(LgChan1).nodeTypedValue
Worksheets("sheet1").Range("B103").Value = oXML.DocumentElement.SelectSingleNode(LgChan2).nodeTypedValue
Worksheets("sheet1").Range("B104").Value = oXML.DocumentElement.SelectSingleNode(LgChan3).nodeTypedValue
Worksheets("sheet1").Range("B105").Value = oXML.DocumentElement.SelectSingleNode(LgChan4).nodeTypedValue