Keskustelu: Ohjelmointikysymykset: VB6: VB (3) teksti tiettyyn kohtaan?

Miten voi tehdä niin että kun painaa nappia niin se tulostaa textboxsiin tekstin siihen kohtaa missä kursori on ja että entinen teksti säilyisi. Minulla käy aina niin että teksti tulostuu alkuu ja entinen teksti postuu...

Tässä on esimerkki:

Private Sub Command1_Click()
    Dim kohta As Integer, alku As String, loppu As String

    kohta = Text1.SelStart         ' kohdistimen sijainti
    alku = Mid(Text1, 1, kohta)    ' tekstin alkuosa
    loppu = Mid(Text1, kohta + 1)  ' tekstin loppuosa

    Text1 = alku & "(lisättävä teksti)" & loppu
End Sub

Tekstikentässä valmiina oleva teksti jaetaan kohdistimen kohdalta, ja uusi teksti lisätään väliin.