Конвертировать код в starbasic

Доброго времени суток... не могли бы помочь конвертировать данный код в starbasic, ибо в нём я полный ноль.Sub Marsh() Dim TRange As Range, SRange As Range, Cell As Range Set TRange = Worksheets("М").Range("A1:A100") Set SRange = Worksheets("БЕЗ_НАКЛАДНЫХ").Range("B3:IT 3") For Each Cell In TRange If Not SRange.Find(Cell) Is Nothing Then Cell.Delete Next CellEnd Sub