Delete Text Between 2 Ranges - Input Box

[dj44]

Evening folks,

I made an input box to delete text between 2 ranges but its fallen flat and fails to start up ?

    Sub DeleteBetween2Ranges()


    Dim myRange As Range
    
    Dim oText1 As String
    Dim oText2 As String
  
    oText1 = InputBox("Enter First Word :")
    If Len(oText) = 0 Then
    Exit Sub
    End If

    
    oText2 = InputBox("Enter Second Word :")
     If Len(oText) = 0 Then
    Exit Sub
    End If

    If Len(oText) = 0 Then
    Exit Sub
    End If

    
    
    Set myRange = ActiveDocument.Range
    With myRange.Find
    
   
    Do While .Execute(FindText:="oText1*oText2", MatchWildcards:=True)
    

    myRange.Text = ""
    
    myRange.Collapse
    Loop
    End With
  
    End Sub

I would like my input box as I have to always change the delete between the 2 ids

Any ideas welcome

[mana]

>"oText1*oText2"

oText1 & "*" & oText2

[mana]

>If Len(oText) = 0 Then


If Len(oText1) = 0 Then
and
If Len(oText2) = 0 Then

[dj44]

As Usual,
I spent ages looking for this bug - that i couldnt see
If Len(oText) = 0 Then
Exit Sub
End If

I forgot to put the oText1 in brackets

Also this did the trickk
oText1 & "*" & oText2

thank you Mana

and all have great evening