each comment cell contains 7 newline characters, so to make it fit on one line you need to remove those
vb Code:
  1. xlWksht.Cells(ii + 1, 1).Value = Replace("Comments:" & Chr(10) & "'" & rsin![Comments], vbLF, vbtab) ' replace linefeed with tab