Private Sub Text1_Change()
Text2.Text = Mid(Text1, 4, 1)
End Sub

Här tar den ju 4 värdet i Textbox1 och sätter till Textbox2

Det jag vill kunna göra är att ändra även värdet 4 i Textbox2
Den ska alltså inte skriva över värdet 1-3
Som det är nu skriver den ju värdet som nr.1




Sören

så här kanske....

Private Sub Text1_Change()
Text2.Text = Left$(Text2.Text, 3) & Mid$(Text1.Text, 4, 1)
End Sub

/P

Hej
Såååååååå kan man inte göra ! Konstigt får du inte felmeddelande ?
Om Text1 bara har 1 -2 tecken så blir det knas.
undrar
Sven

Jo det blev inte riktigt som jag tänkt mig.
För om det finns flera tecken efter så blir ju dessa raderade
Jag tänkte mig att den skulle enbart ändra ett värde och låta resterande
vara orörda. Som tidigare ex.p



Sören

Testa:

Mid$(Text2.Text, 4, 1) = Mid$(Text1, 4, 1)

Nej det funkar inte, något blir galet.........

Dum jag är. Ska vara:

Dim Text as string
Text = Text2.Text
Mid$(Text, 4, 1) = Mid$(Text1, 4, 1)
Text2.Text = Text

Jag tackar dig detta, funkar jätte bra.........



Sören