Is this what you need, thegreatone?
VB Code:
  1. Private Sub Command1_Click()

  2. Dim i%

  3.  
  4.     Shell "notepad", vbNormalFocus

  5.     Clipboard.Clear

  6.     With Text1

  7.         For i = 0 To Len(.Text) - 1

  8.             SendKeys Mid(.Text, i + 1, 1)

  9.         Next i

  10.     End With

  11.     SendKeys "^{c}"

  12.     SendKeys "^{v}"

  13.  
  14. End Sub