Yes you are right as I wrote before. The error message is wrong, it states 'Missing Keyword: End Sub'. It should be something like 'Missing Keyword: Then'
Of course not you have put a End if on single line If Then
Should be for VB6
If a=b then a=1 : b=2
Or multi line like this
If a=b Then
a=1
b=2
End if
By the way I am not concerned about the difference in B4A I was just pointing it out so users of VB6 are aware of the differences, as I could not at first work out why some of my code was not working as expected.