If you mean there are numbers or "#" symbols between each line then here's what I do,
Copy the code as you normally would, then call this in one of your programs or make a program just for this pupose.
Code:
Private Sub mnuFixCode_Click()
Dim myarr() As String
Dim i As Integer
myarr = Split(Clipboard.GetText, vbNewLine)
For i = UBound(myarr) To 0 Step -1
If IsNumeric(myarr(i)) Then
myarr(i) = ""
ElseIf (myarr(i)) = "#" Then
myarr(i) = ""
End If
Next i
Clipboard.Clear
Clipboard.SetText Replace(Join(myarr, vbNewLine), vbLf & vbCr, "")
End Sub
Now paste to VB as you normally would.