Textbox - tryb nadpisywania

Rozwiązanie znalezione na grupach dyskucyjnych - przełącza textboxa w tryb nadpisywania:

 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 

    If TextBox1.SelLength = 0 Then
        TextBox1.SelLength = 1
    End If

End Sub

---