REM  *****  BASIC  *****

Sub Main
	Dim en As String
	en = "15"
	Dim myarray As Variant
	Dim res As String
	res = "<?xml version='1.0' encoding='UTF-8'?>" + vbCrLf
	res = res + "<RetrieveValueSetResponse xmlns='urn:ihe:iti:svs:2008'>" + vbCrLf
    res = res + vbTab + "<ValueSet version='20131011' id='" + Cells(2,2).Value
    res = res + "' displayName='" + Cells(1,2).Value + "'>" + vbCrLf
    res = res + vbTab + vbTab + "<ConceptList xml:lang='en-US'>" + vbCrLf
    
    myarray = Range("b12:c" + en).Value
	For i = 1 To UBound(myarray)
		res = res + vbTab + vbTab + vbTab + "<Concept code='" + CStr(myarray(i, 1)) + "' "
		res = res + "codeSystem='" + Cells(4,2).Value + "' "
		res = res + "codeSystemName='" + Cells(3,2).Value + "' "
		res = res + "displayName='" + myarray(i, 2) + "' />" + vbCrLf
	Next
	res = res + vbTab + vbTab + "</ConceptList>" + vbCrLf
	res = res + vbTab +"</ValueSet>" + vbCrLf
	res = res + "</RetrieveValueSetResponse>"
	MsgBox res
End Sub