Private Sub Form_Load()
    Check1.Caption = "Überschreiben"
End Sub
 
Private Sub Text1_GotFocus(Index As Integer)
' Markiert den Inhalt, wenn Textbox selektiert
    Text1(Index).SelStart = 0
    Text1(Index).SelLength = Len(Text1(Index))
End Sub
 
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
' Überschreibemodus:
    If Check1.Value = vbChecked Then
        If KeyAscii >= 32 Then
            Text1(Index).SelLength = 1
        End If
    End If
End Sub