' Create a file
   ' expC1 String
   ' expC2 File
   Private Function CreateFile(ByVal tcString As String, ByVal tcFile As String)
      Dim loFile As System.IO.File
      Dim loWrite As System.IO.StreamWriter
      loWrite = loFile.CreateText(tcFile)
      loWrite.WriteLine(tcString)
      loWrite.Close()
   End Function