Code:
Option Explicit

Private Sub Command1_Click()

    Dim myString As String, temp1 As String, temp2 As String
    myString = "<title> hehehehehhehe </title>"
    temp1 = Left(myString, 7)
    temp2 = Right(myString, 8)
    myString = ""
    myString = temp1 & "My Replacement" & temp2
    MsgBox myString
    
End Sub