List 6-40　XML形式の文字列として結果を返すメソッドの例

  1： Function GetCustomers3() As String
  2：     Dim strXML As String
  3：     
  4：     strXML = "<customers>"
  5：     
  6：     strXML = strXML & "<customer>"
  7：     strXML = strXML & _
                   "<customername>ソフトバンクパブリッシング</customername>"
  8：     strXML = strXML & "<telephone>03-1234-5678</telephone>"
  9：     strXML = strXML & "<fax>03-1234-5679</fax>"
 10：     strXML = strXML & "</customer>"
 11：     
 12：     strXML = strXML & "<customer>"
 13：     strXML = strXML & _
                   "<customername>マイクロソフト</customername>"
 14：     strXML = strXML & "<telephone>03-2345-6789</telephone>"
 15：     strXML = strXML & "<fax>03-2345-6790</fax>"
 16：     strXML = strXML & "</customer>"
 17：     
 18：     strXML = strXML & "</customers>"
 19：     
 20：     GetCustomers3 = strXML
 21： End Function