[VB] Modifica testo

[vonkranz]

E' questo quello che volevi? (..'azz sembrava un quiz de "La settimana Enigmistica"...)

   Text1.Text = "abcd1234"
   strDaInser = "xxx"
   posiz = 4
   With Text1
      .Text = Left(.Text, posiz) + strDaInser + Mid(.Text, posiz + 1)
      .SelStart = posiz + Len(strDaInser)
   End With