How to exit If before hit Then and End If statement?

I need a way to end If before "Then"

For i = 0 To Main.[B10000].End(xlUp).Row - 4

POD = Trim(Main.Range("B5").Offset(i, 0))
If POD <> "" Then

    L2 = "https:/AAAAA" & POD

    P.Open "Get", L2
    P.SetAutoLogonPolicy 0
    P.send
    P.waitForResponse

    D.body.innerHTML = P.responseText

    For Each R In D.getElementsByClassName("col-md-7")
        If InStr(1, R.innerText, "pod is not found on floor") <> 0 Then
            Main.Range("B5").Offset(i, 1) = "Offline"

           **'I need end here if = Offline**

        Else
            Main.Range("B5").Offset(i, 1) = "Online"
        End If
    Next R
End If

Next i

End Sub