Rechnung = Text1.Text
<font color = green>' alle ² und ³ werden durch ^2 und ^3 ersetzt</font>
Rechnung = ReplaceStrings(Rechnung, "²", "^2", 1)
Rechnung = ReplaceStrings(Rechnung, "³", "^3", 1)
Text1.Text = Rechnung
 
<font color = green>' und hier mein Problem</font>
Dim lPos As Long
Dim lpos2 As Long
Dim sAusdruck As String
sAusdruck = Rechnung
lPos = 0
lpos2 = 0
  Do
    lPos = InStr(lPos + 1, sAusdruck, "x")
        lpos2 = lPos
        lpos2 = InStr(lpos2 + 1, sAusdruck, "^")
        If lpos2 <> lPos + 1 Then
        sAusdruck = Left(sAusdruck, lPos + 1) & _
          "^1" & Mid(sAusdruck, lPos)
        lPos = lPos - 1
        Else
        End If
  Loop Until lPos = 0
 
Text1.Text = sAusdruck