Option Explicit
 
    Dim WithEvents Text1 As TextBox
    Dim WithEvents Text2 As TextBox
    Dim WithEvents Command1 As CommandButton
 
    Dim sThoseWords As String
    Dim lCursorPos As String
 
 
Private Sub Command1_Click()
 
    sThoseWords = Replace(sThoseWords, Text1.Text, Text2.Text, , , 1)
    Form_Paint
 
End Sub
 
Private Sub Form_Click()
 
    Text1.Enabled = Not Text1.Enabled
    Text2.Enabled = Not Text2.Enabled
    Command1.Enabled = Not Command1.Enabled
 
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
 
    If Text1.Enabled Then Exit Sub
 
    Select Case KeyAscii
    Case vbKeyReturn
        sThoseWords = sThoseWords & vbCrLf
    Case vbKeyBack
        sThoseWords = Left(sThoseWords, Len(sThoseWords) - 1)
    Case vbKeyDelete
        sThoseWords = sThoseWords & vbCrLf
    Case Else
        sThoseWords = sThoseWords & Chr(KeyAscii)
    End Select
 
    lCursorPos = Len(sThoseWords)
 
    Form_Paint
 
End Sub
 
 
Private Sub Form_Paint()
 
    Cls
    Print sThoseWords
 
End Sub
 
Private Sub Form_Load()
 
    sThoseWords = "Das ist ein Beispieltext..." & vbCrLf & _
                  "in dem man den Beispieltext ersetzen kann." & vbCrLf & _
                  vbCrLf & _
                  "Hier kann man auch einfach ins Form reinschreiben." & vbCrLf _
                  & _
                  "Form klicken zum En/Disablen der Controls..." & vbCrLf
 
    Me.Width = 3950
    Me.Height = 3200
    Me.Caption = "FORM KLICKEN"
 
    Set Text1 = Controls.Add("VB.TextBox", "Text1")
    Set Text2 = Controls.Add("VB.TextBox", "Text2")
    Set Command1 = Controls.Add("VB.CommandButton", "Command1")
 
    With Text1
        .Move 2100, 1300, 1600, 285
        .Text = "Beispieltext"
        .Enabled = False
        .Visible = True
    End With
 
    With Text2
        .Move 2100, 1800, 1600, 285
        .Text = "Testtext"
        .Enabled = False
        .Visible = True
    End With
 
    With Command1
        .Move 2100, 2300, 1600, 285
        .Caption = "Klicken"
        .Enabled = False
        .Visible = True
    End With
 
End Sub

Ohne Mampf, kein Kampf !