在VB6中，你可以使用以下方法来快速删除代码中的空行：

1. 使用编辑器的查找和替换功能：

   - 打开VB6中的代码文件。

   - 按下`Ctrl + H`键，打开查找和替换对话框。

   - 在“查找”字段中输入 `^\s*$`，表示查找连续的空白行。

   - 将“替换为”字段留空，表示删除这些空白行。

   - 点击“替换全部”或按下`Alt + A`键，以删除所有匹配的空白行。

2. 使用宏扩展功能（仅适用于某些文本编辑器）：

   - 打开VB6中的代码文件。

   - 记录一个宏，将光标移动到每一行并删除空白行。

   - 运行宏以自动删除这些空白行。

3. 手动删除空行：

   - 打开VB6中的代码文件。

   - 使用鼠标选择空白行，并按下`Delete`或`Backspace`键来删除选定的行。

无论使用哪种方法，请记得在执行操作前备份代码，以防不小心删除了重要的内容。

如果你是想删除字符串中的代码可以用如下办法

text1.text=replace(text1.text,vbcrlf & vbcrlf & vbcrlf,vbcrlf)
text1.text=replace(text1.text,vbcrlf & vbcrlf,vbcrlf)
text1.text=replace(text1.text,vbcrlf & vbcrlf,vbcrlf)

把上面这3行代码加入  一键取出字符串中的空行。