copying vbcode from posts

[westconn1]

if you get annoyed at the line numbering in the vbcode boxes when copying to paste elsewhere

Sub Main()
Dim myarr() As String
myarr = Split(Clipboard.GetText, vbNewLine)
For i = UBound(myarr) To 0 Step -1
    If IsNumeric(myarr(i)) Then myarr(i) = ""
Next
Clipboard.Clear
Clipboard.SetText Replace(Join(myarr, vbNewLine), vbLf & vbCr, "")
End Sub

make a project with the above code (no form needed) and compile
copy from the post
run program (nothing visible happens)
paste into whatever code window