Dim MyUnicodeText As clsUnicodeText 
Set MyUnicodeText = New clsUnicodeText 
' Read Unicode Text from file txtFileName and display in TextBox1(0)
TextBox1(0).Text = MyUnicodeText.ReadUnicode(txtFileName)

Option Explicit 
Private mDOMTextFile As DOMDocument  ' Document Object Model
Private mXMLPath As String  ' XML filename
Public Function ReadUnicode(TXMLPath) 
   ' Read Unicode text from XML file
   Dim objTextFileRoot As IXMLDOMElement 
   Set mDOMTextFile = New DOMDocument 
   ' Remember the XML file name to update later
   mXMLPath = TXMLPath 
   ' Read the XML file and create a DOM
   mDOMTextFile.Load mXMLPath 
   'start at the root element of the XML
   Set objTextFileRoot = mDOMTextFile.documentElement 
   ' Return the root node's text
   ReadUnicode = objTextFileRoot.nodeTypedValue 
End Function  
Public Sub WriteUnicode(OutText, Optional TXMLPath) 
   ' Update Unicode Text of same XML file or write to another XML file
   If IsMissing(TXMLPath) Then 
      ' Assign the Text to write out to the Root node of DOM
      mDOMTextFile.documentElement.Text = OutText 
      ' Update the XML file
      mDOMTextFile.save mXMLPath 
   Else 
      ' Read a dummy file to create a DOM
      ReadUnicode GetLocalDirectory & "Dummy.xml" 
      ' Assign the Text to write out to the Root node of DOM
      mDOMTextFile.documentElement.Text = OutText 
      ' Write the Text to the given XML file
      mDOMTextFile.save TXMLPath 
   End If 
End Sub

Function StringToString(Vowel1, Vowel2) As String 
   ' Direct one-to-one character mapping from one encoding to another
   Dim letter As String 
   Dim Text1 As String 
   Dim Text2 As String 
   Dim i, Pos 
   ' Use Text1 to execute a litle faster than TextBox1(0)
   Text1 = TextBox1(0).Text 
   ' Iterate through each character of the from Text string
   For i = 1 To Len(Text1) 
      letter = Mid(Text1, i, 1) 
      ' Leave Carriage Return and Line Feed characters as is
      If (letter = vbCr) Then 
         Text2 = Text2 & vbCr 
      ElseIf (letter = vbLf) Then 
         Text2 = Text2 & vbLf 
      Else 
         ' Find position of character in the vowel list
         Pos = InStr(Vowel1, letter) 
         If Pos <= 0 Then 
            ' Not found - so do not map
            Text2 = Text2 & letter 
         Else 
            ' Found - so pick the corresponding character in the other vowel list
            Text2 = Text2 & Mid(Vowel2, Pos, 1) 
         End If 
      End If 
   Next 
   StringToString = Text2 
End Function