Si è così anche se per dichiarare il thread io faccio:

Dim th As Threading.Thread
th = New Threading.Thread(AddressOf miasub)
th.Start()