VB Textbox to Excel [Resolved]

[RobDog888]

You just need to parse out the data using Instr & Mid$ string functions.

Dim iStart as integer
dim iEnd as integer
dim sData as string
dim iData() as integer
istart = instr(1, Text1.text, "==>print freqvalue")
if istart > 0 then 'found
    iend = instr(istart + 1, Text1.text, "==>")
    sdata = mid$(Text1.text, istart, iend - istart)
    idata = split(sdata, ",")
    'Loop though the array of integers adding to excel
    '...
    '...
else
    msgbox "data not found"
endif