' 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