Private Sub Command1_Click()
    Dim Temp As String
    Dim A As String
    Dim B As String
 
    A = "100"
    B = "3 äpfel"
 
    Temp = Text1.Text
    Temp = Replace(Temp, "%A", A)
    Temp = Replace(Temp, "%B", B)
 
    Text2.Text = Temp
End Sub