Public Sub ChangeTitle(Title As String)
'// Ändert Titel der Webseite
Dim txtToReplace As String
Dim txtPos As Long, txtLen As Long
Dim txt As String
 
txt = mdiMain.ActiveForm.rtfBox.Text
 
txtPos = InStr(1, LCase$(txt), "<title>")
txtLen = InStr(1, LCase$(txt), "</title>") - txtPos
 
txtToReplace = Mid$(txt, txtPos, txtLen)
InsertText Replace(txt, txtToReplace, Title), txtPos
 
End Sub