you can replace a newline character with a comma using any one of the following method:
Let sampleStrbe the input string
.
Dim sampleStr As String="<<HAWB>>,"940",1899/12/30,"Lemon
","CHINA","0","CHINA","CN","T B S INT
sampleStr.Replace(vbNewLine, ",")
sampleStr.Replace(Chr(13), ",")
sampleStr.Replace(Environment.NewLine, ",")