Hello Tye

Try this:

Dim strComment As String
Dim lngPos As Long
'
' Your code to retreve Outlook info
'
If olTsk.body < "" Then
strComment = olTsk.body
lngPos = InStr(1, strComment, Chr$(13))
Do While lngPos 0
Mid$(strComment, lngPos, 1) = Chr$(10)
lngPos = InStr(1, strComment, Chr$(13))
Loop
ActiveSheet.Cells(i, x).AddComment strComment
ActiveSheet.Cells(i, x).Comment.Shape.TextFrame.AutoSize = True
End If

Success,

Wouter


tyeholmes wrote in message ...
How do you manipulate a variable like a file?

I'm pulling Outlook Task items into a spreadsheet and stuffing the body
of the Task into the cell Comments. This is working great except the
body of the Task holds formating information like chr(13)s. I want to
read through the Task Body variable in memory and remove the chr(13)s
before adding the Comment.

If olTsk.Body < "" Then
ActiveSheet.Cells(i, x).AddComment olTsk.Body
ActiveSheet.Cells(i, x).Comment.Shape.TextFrame.AutoSize = True
End If

Any ideas?

Thanks,

Tye


---
Message posted from http://www.ExcelForum.com/