Tenho que fazer o desenvolvimento de uma tela que tenha o seguinte formato. possua um listbos onde irá conter alguns trechos de texto pre criados. e um textbox ou richttext onde ele possa digitar um texto e com o mouse clicar e arrastar um pedaço de texto(uma linha) do lista até um ponto do texto que queira(começo meio ou fim) alguém poderia me ajudar ?

Não entendi muito bem oq vc quer mas vamos lá.......bom vc pode usar uma rotina simples assim...

 

Private Sub lst1_Click()
If txttexto <> "" Then
    txttexto = txttexto & " " & lst1.Text
    txttexto.SelStart = Len(txttexto.Text)
    txttexto.SetFocus
Else
    txttexto = txttexto & lst1.Text
    txttexto.SelStart = Len(txttexto.Text)
    txttexto.SetFocus
End If
End Sub

 

Sendo que:

Text1 = txttexto

List1 = lst1