Private Sub Command1_Click()
 
Dim intGesTextLänge As Integer
Dim strTemp As String
Dim intTempLänge As Integer
 
    intGesTextLänge = Len(Text1)
 
        For i = 1 To intGesTextLänge
 
            strTemp = Left(Text1, i)
                intTempLänge = Len(strTemp)
 
                    If Right(strTemp, 1) = "/" Then
                        Text1.SelStart = intTempLänge - 1
                            Text1.SelLength = 1
                                Text1.SelText = "\"
                    End If
 
        Next i
 
 
 
End Sub