Public Sub ChangeTitle(Title As String)
     '// Ändert Titel der Webseite
     Dim txtPos As Long, txtLen As Long
     Dim txt As String, txttoReplace As String
 
 
     txt = mdiMain.ActiveForm.rtfBox.Text
 
     txtPos = InStr(1, LCase$(txt), "<title>")
     If txtPos > 0 Then
         txtLen = InStr(txtPos + 8, LCase$(txt), "</title>")
     End If
 
     If txtPos > 0 And txtLen > 0 Then
        txttoReplace = Trim(Mid(txt, txtPos + 8, txtLen))
        If UCase(txttoReplace) = UCase(Title) Then
           'Titel ist mit Inhalt identisch - nicht austauschen
           Exit Sub
        End If
        txt = Replace(txt, txttoReplace, Title)
 
        mdiMain.ActiveForm.rtfBox.Text = txt
     End If
End Sub