Thanks Martin! Almost there, but not quite. I made a couple of minor changes to code. The grid looks okay with the data. However, only one line is being displayed. The string sdata = szname because szname returns the multiple lines of data from the source, which is okay if the other lines populate the grid. Also, the numbers are flushed to the left of the column. I think my problem centers around the fact that I was able to use the .additem property w/the listbox versus using the .text property with the Grid. If change text to additem the Grid will list everything going down in column 1. Any suggestions. Thanks again!

Dim sData As String
Dim nPos As Integer
Const COL_WIDTH = 1200

sData = sztemp

Form1.Grid1.Cols = 1
nPos = 999
Do Until nPos = 0
nPos = InStr(1, sData, " ")
If nPos > 0 Then
Form1.Grid1.Col = Form1.Grid1.Cols - 1
Form1.Grid1.Text = Left$(sData, nPos - 1)
Form1.Grid1.ColWidth(Form1.Grid1.Col) = COL_WIDTH
Form1.Grid1.Width = Form1.Grid1.Width + COL_WIDTH
Form1.Grid1.Cols = Form1.Grid1.Cols + 1
sData = Right$(sData, Len(sData) - nPos)
Else
Form1.Grid1.Col = Form1.Grid1.Cols - 1
Form1.Grid1.Text = sData
Form1.Grid1.ColWidth(Form1.Grid1.Col) = COL_WIDTH
End If
Loop

[This message has been edited by Hutty (edited 01-28-2000).]

[This message has been edited by Hutty (edited 01-28-2000).]

[This message has been edited by Hutty (edited 01-28-2000).]