You do not need an End If when the the statement(s) to be executed are on the same line as the If.

You could do something like:

Dim li_Var As Int16 = 1

If li_Var = 1 Then Call Locations()

or multiple statements:

If li_Var = 1 Then Call Locations() : Call Start()

Which is perfectly valid, but not very readable.

When the Statement(s) is not on the same line then you require the End If:

If li_Var = 1 Then
Call Locations()
End If

As for your other bugs, then you _have_ other bugs and this is not your problem.

As DevGrp has shown above though, would be better in a case.

Hope this helps,

Mike