Private sub form_load()
text1.text = "Hej" & vbcrlf & "" & "" & vbcrlf & " Ha en bra dag!"
End sub

Private sub command1_click()
dim svar as string
svar = inputbox("Hej vad heter du?","Fråga")
text2.text = InsertText(text1.text,"","",svar)
End sub