--- Revision 383033313930
+++ Revision 316363356466
@@ -1,10 +1,5 @@
 Function SubstrInterpoint(ByVal src As String) As String
-	cr = Chr(13)
-	lf = Chr(10)
-	crlf = cr & lf
-	s = Replace(src, crlf, lf)
-	s = Replace(src, cr, lf)
-	SubstrInterpoint = Substr(s, "・", lf)
+	SubstrInterpoint = Substr(s, "・", Chr(10))
 End Function
 
 Function Substr(ByVal src As String, ByVal startChar As String, ByVal endChar As String) As String