Dim str As String : str = "0123456789"
  Dim str2 As String
  Dim i As Integer : i = Len(str)
  Open "text.txt" For Output As #1
  While i > 0
   str2 = str2 & Mid(str, i, 1)
   i = i - 1
  Wend
  Print #1, str2
  Close #1

  Dim str As New String("0123456789")
  Dim i As Integer = str.Length - 1
  Dim sw As StreamReader = New StreamReader("text.txt")
  While (i >= 0)
      sw.Read(str.Chars(i))
      i -= 1
  End While
  sw.Close()

  Dim str As New String("0123456789")
  Dim i As Integer = str.Length - 1
  Dim sw As StreamWriter = New StreamWriter("text.txt")
  While (i >= 0)
      sw.Write(str.Chars(i))
      i -= 1
  End While
  sw.Close()

Dim XmlDataDocument doc As New XmlDataDocument(priceList)
Dim XslTransform xslTrans As New XslTransform("PriceList.xsl")
doc.BindXsl(xslTrans)