i want my code to become faster

[nokmaster]

this is the module..

Sub pause(pas As Single)
start = Timer
Do Until Timer >= start + pas / 1000
DoEvents
Loop
End Sub

i tried the pause(50) but there is an error my phone freeze..