Adicionando Pause (VB)

Estava mechendo no Eclipse Origins e achei necessidade de colocar um Pause na sub (funciona em funções), funciona da seguinte maneira:

Spoiler:

Ele irá rodar os códigos normalmente e quando chegar no Pause, ele esperará um determinado tempo, no caso 5 segundos, e continuará a rodar o resto dos códigos.

Como fazer:
Ache a sub ou função aonde deseja colocar o Pause, declare uma variável "TP As Long", após declará-la, adicione as seguintes linhas aonde quiser que dê o Pause:

Spoiler:

Isso é um código bem simples mas que em certas horas (raras) pode ser útil