I don't understand, I only used the first line once. I have one formatted variable mystr! Im getting this data through an oncomm when I get 9 bytes of data it fires and sets up my string sData, sData is then formatted into mystr, and mystr then sent to a file on disk and to a Picture box. I know if I have three lines it will print three lines!! I may have hundreds of lines so I really don't want to wirte 100 + text1.text lines, I want it to loop through the data as it comes in and put it on a line below the last. I have a counter running wonder if I can use the count value to tell the text box to drop one line and print can a text box be told which line to print on. This is basically a do loop where mystr is reloaded with new data each pass and then printed. Now when using the write or print commands with this data it works perfect but print and write do not work with a text box or lable box. Right now Im using to picture boxes when one fills up it goes on to the next but sometimes both fill up and I loose some data guess another picture box or two would help, bout could fill them also.




Public Sub MSComm1_ONComm()
If MSComm1.CommEvent = comEvReceive Then
sData = MSComm1.Input
cnt = cnt + 1
cnt1 = Format(cnt, "0#")
If Mid(sData, 1, 1) = "8" Then Command_End
mystr = Format(sData, " 0#:## 0#/## ")
FileNum = FreeFile ' Writes New Data To Disc (Named C:\Tracker)
Open "C:\Tracker.txt" For Append As FileNum
Print #FileNum, " "; cnt1 & " "; mystr
Close FileNum
If cnt <= 43 Then PicData1.Print " "; cnt1 & " "; mystr
If cnt > 43 Then PicData2.Print " "; cnt1 & " "; mystr
End If
End Sub