Få de nyeste info i toppen !

Txtbox ( m. MultiLines )

\'for at tilføje txt
txtbox.text = txtbox.text & TxtTilføj & vbcrlf

\'så kunne man fx. \"vende\" al text i boxen ved at splitte den op i n intervaller med [vbcrlf] som seperator:

dim split() as string
Split = VBA.Split(txtbox.text, vbcrlf)
txtbox.text = \"\"
for n = UBound(split()) - 1 to 0 step -1
    txtbox.text = txtbox.text & split(n) & vbcrlf
next n

Eller du kunne når du skrev til den blot benytte:
txtbox.text = strText & vbcrlf & txtbox.text

Mest simpel = mike@work

Så du får dem :-)

Tak !