Erro en funcion llf

[hugorei]

es que estoy siguiendo un manual y como veo tengo muchas funciones que no existen en el VB 6.0 otra es esta Clnt(A) , fijate el codigo que esta mas abajo , como puedo solucionar estos inconvenientes por que si sigo sin probar estas funciones no puedo aprenderlas

Private Sub Command1_Click()
Randomize Timer
A = Rnd * 100
A = Clnt(A)
Do While A > 49
A = A - 49
Loop
Do While A < 1
A = A + 49
Loop
Label1.Caption = A
End Sub