Hi Josef
Und sowas um die Zeit... hab mich halb blöd gesucht und die Lösung ist (glaub ich) ganz einfach...
ActiveCell.Offset(columnOffset:=40).Value = CStr(usfComment.txtComment)
CStr dimensioniert den Inhalt als String.
Gruss
Chris