Run Time Error 7 - Out Of Memory

Does anyone have any experience with this error? I am getting it on one computer my app is installed on. This computer was running my code perfectly 2 days ago, but yesterday it stopped working in the following code. The only difference in the system is that i installed msttsa22l.exe on the system. This installs voice engines. I had already installed the text to speech apis and control panel before this and the app ran perfectly. It is only since the installation of these engines that the problem has occurred.

VB Code:

For count = 0 To imagecount - 1
        With frmReview.xwebpic1
            MsgBox ("Setting new height")
            .PictureNewHeight = 240
            MsgBox ("Setting new width")
            .PictureNewWidth = 320
            MsgBox ("Setting image quality")
            .JPGQuality = 100
            MsgBox ("Loading file")
            .InputFile = imagesToUpload(count)
            MsgBox ("Doing Resize")
            .PictureResize
            MsgBox ("Saving Image")
            .SaveToJPG (imagesToUpload(count))
        End With
        
        MsgBox ("Changing File Attribute")
        Call SetAttr(imagesToUpload(count), vbNormal)
        MsgBox ("Doing Visual Stuff")
        frmVideoEdit.Shape1(count).Visible = True
        frmVideoEdit.Shape1(count).Refresh
    Next

Can anyone help me with this - I am getting really desperate. The error occurs on the line

VB Code:

.PictureNewHeight = 240

Thnx all in advance.