I am not the developer of this code nor a VB developer but have been tasked to figure out why this code is failing on windows 7 when it was working on XP.

error is occcuring here:

Dim X as Long
X=1

Do While (x < Len(csNewRTFText)
ts.Write Mid(csNewRTFText, X, 256)
x= x+256

Loop

I am wondering if there are some libraries missing in the new win 7 enviornment that are needed. I found the original vbp file and it lists references to dlls that are not on the machine.

Reference=*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library
Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime
Reference=*\G{00020905-0000-0000-C000-000000000046}#8.1#0#C:\Program Files\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library
Reference=*\G{DF14FAE7-E75B-11D2-B02F-00A0CC3A1C95}#1.0#0#C:\Program Files\ProtoView\DataTable8\PVList.ocx#ProtoView ListBox Control
Reference=*\G{6B263850-900B-11D0-9484-00A0C91110ED}#1.0#0#C:\WINDOWS\system32\MSSTDFMT.DLL#Microsoft Data Formatting Object Library 6.0 (SP4)

I am wondering if these are no longer needed and the problem lies else where.