Oczekiwanie na zadziałanie czujnika musisz zrobić w pętli While

Function SILNIK()
Call SetCsmioOut(SILNIK_1, True) 'załączenie silnika

'OCZEKIWANIE NA ZADZIAŁANIE CZUJNIKA
While Not GetCsmioIn(CZUJNIK_1)
Sleep(15)
Wend

Call SetCsmioOut(SILNIK_1, False) 'wyłączenie silnika
End If
End Function