Open sLogFile_CST For Append As #1
			Open sDataFile_CST For Output As #2
			Open sPointxyzFile_CST For Output As #3

			Print #2, _
				PP12(GetScriptSetting("coord1","")) + _
				PP12(GetScriptSetting("coord2","")) + _
				PP12(GetScriptSetting("coord3","")) + _
				PP12("delta_w") + PP12("Ew_real") + PP12("Ew_imag") + PP12("cos(alfa)") + PP12("sin(alfa)") + PP12("Vsum_real") + PP12("Vsum_imag")
			Print #2, _
				PP12("--------------------") + PP12("--------------------") + PP12("--------------------") + _
				PP12("--------------------") + PP12("--------------------") + PP12("--------------------") + _
				PP12("--------------------") + PP12("--------------------") + PP12("--------------------") + _
				PP12("--------------------")

			Print #1, vbCrLf + _
					"              Logfile of Voltage Integration" + vbCrLf + _
					"              ==============================" + vbCrLf

			Print #1, PP25L("Stepsize")               + ": " + CStr(ddStep)

			Print #1, _
					vbCrLf + _
					PP8("") + PP12("low") + PP12("high") + PP12("stepsize") + vbCrLf + _
					PP8("") + PP12("----------------") + PP12("----------------") + PP12("----------------") + vbCrLf + _
					PP8(GetScriptSetting("coord1","")) + PP12(dUVWvalue(1,1))+PP12(dUVWvalue(1,2))+PP12(dUVWvalue(1,3)) + vbCrLf + _
			       	PP8(GetScriptSetting("coord2","")) + PP12(dUVWvalue(2,1))+PP12(dUVWvalue(2,2))+PP12(dUVWvalue(2,3)) + vbCrLf + _
			       	PP8(GetScriptSetting("coord3","")) + PP12(dUVWvalue(3,1))+PP12(dUVWvalue(3,2))+PP12(dUVWvalue(3,3)) + vbCrLf