我们用VB开发数据处理程序的时候，经常会出现空行符，而且有一些去除不掉，今天土嘎嘎公布一款分装模块

        Public Function qukonghang(ByVal yy As String)   '去换行符

            yy = Replace(yy, vbCrLf, "")

            yy = Replace(yy, vbCr, "")

            yy = Replace(yy, vbLf, "")

            yy = Trim(yy)

            qukonghang = yy

        End Function

窗体调用方法：text1.text=qukonghang(text2.text)

此操作就会一键去除text2.text里面的换行符号