As for the StringBuilder class, DDoE covered on this topic today, and I posted mine in the comments:
http://www.dailydoseofexcel.com/archives/2010/07/19/string-building-class/

Public Sub dbp(ParamArray vOut() As Variant)
Dim i As Integer
Dim sOut As String
sOut = “”
If DEBUG_MODE Then
If UBound(vOut) < 0 Then
Debug.Print
Else
sOut = vOut(0)
For i = 1 To UBound(vOut)
sOut = sOut & vbTab & vOut(i)
Next
Debug.Print sOut
End If
End If
End Sub

Nick – you wrapped debug.print?? I thought I was lazy…

(actually I do have something similar so that I can show msgboxes during dev then switch to debug.print in production.)
please do post your stringbuilder, its always handy to see other approaches.

The first is a StringBuilder class that lets you call Add() for each line and ToString() to return them all concatentaed with vbCrLf’s. Let me know if you’re interested and I’ll post it.

The second is just a function to replace C style \n with vbCrLf:

Public Function nl(ByVal sText As String) As String
Const newLine As String = vbCrLf
sText = Replace$(sText, ” \n “, newLine)
nl = Replace$(sText, “\n”, newLine)
End Function

The two Replace() calls are for padded and un-padded \n’s. Simple, yet so time saving.

The third is if you are really lazy:

Public Function dp(Optional sText As String = “”)
Debug.Print sText
End Function