在VB中，可以使用`SyncLock`关键字和`Monitor`类来实现子程序的同步。以下是使用`SyncLock`关键字同步子程序的示例代码：
```vb
Dim lockObject As New Object
Sub MySubroutine（）
SyncLock lockObject
' 在这里放置需要同步的代码
' 例如：
' Call SomeSynchronizedFunction（）
End SyncLock
End Sub
```
在这个示例中，`lockObject`是一个对象，用于确保在同一时间只有一个线程可以执行`MySubroutine`中的同步代码块。`SyncLock`关键字用于锁定`lockObject`，当进入`SyncLock`语句块时，其他试图进入该代码块的线程将被阻塞，直到`SyncLock`语句块执行完毕。
请注意，`SyncLock`关键字必须放在代码块的开头，并在结束时使用`End SyncLock`语句来释放锁定。这样可以确保在代码块执行期间，其他线程无法访问该对象，从而实现同步。
另外，如果你需要更细粒度的同步控制，可以使用`Monitor`类。`Monitor`类提供了类似`SyncLock`的功能，但提供了更多的控制选项，例如等待其他线程释放锁等。
希望这些信息对你有所帮助。