IsElementPresent Click

'dim Web
Dim vXpathClick As String
'/html/body/div[1]/div/span[2]/div/span/div/div/div/div/div/div[2]/div/div

vXpathClick = "/html/body/div[1]/div/span[2]/div/span/div/div/div/div/div/div[2]/div/div/div/div"
If Web.IsElementPresent(FindBy.xpath(vXpathClick)) Then
    Set SearchInput = Web.FindElement(FindBy.xpath(vXpathClick))
    If SearchInput.IsDisplayed = True Then
        'Web.Actions.MoveToElement(SearchInput).Perform
        Web.Actions.MoveToElement(SearchInput).Click
        Is_Mob_No_Invalid = True
        Exit Function
    End If
End If