C/Visual C - El chavo del 8 busca su pavo

tengo este codigo:
Private Sub iniciar_Click()
pavo.Move 85, 47
For j = 0 To 47
For i = 0 To 85
chavo.Move i, j
If (i = 42) Then
MsgBox ("Hay brisa,debe de haber un pozo alado, mejor me voy")
chavo.Move 0, 24
MsgBox ("Huele a mota, debe ser la bruja motorola del 71")
j = j + 24
End If
If (i = 64) Then
MsgBox ("Hay brisa,debe de haber un pozo alado, mejor me voy")

chavo.Move 21, 47
MsgBox ("Huele a mota, debe ser la bruja motorola del 71")
j = j + 23
End If
If (i = 85) Then
MsgBox ("Aqui esta el pinche pavo, ya me gradue")
chavo.Move 0, 0
pavo.Move 0, 0
End If
Next i
Next j
End Sub

mi intencion es la de dejenerar las pociniones de la bruja y del pavo de forma aleatoria si alguine me ayudara con esa parte esteria muy agradecido!

'Claro. utilizando la funcion rnd(numero)
Private Sub iniciar_Click()

pavo.Move 85, 47
Dim xChavo, yChavo, xBruja, yBruja As Integer
For j = 0 To 47
For i = 0 To 85
xChavo = Int(Rnd(1) * 100) 'obtiene numeros de 0 a 100
yChavo = Int(Rnd(1) * 200) 'obtiene numeros de 0 a 200
xBruja = Int(Rnd(1) * 10) 'obtiene numeros de 0 a 10
yBruja = Int(Rnd(1) * 350) 'obtiene numeros de 0 a 350

chavo.Move i, j
If (i = 42) Then
MsgBox ("Hay brisa,debe de haber un pozo alado, mejor me voy")
chavo.Move xChavo, yChavo
MsgBox ("Huele a mota, debe ser la bruja motorola del 71")
j = j + 24
End If
If (i = 64) Then
MsgBox ("Hay brisa,debe de haber un pozo alado, mejor me voy")

xChavo = Int(Rnd(1) * 100) 'obtiene numeros de 0 a 100
yChavo = Int(Rnd(1) * 200) 'obtiene numeros de 0 a 200

chavo.Move xChavo, yChavo
MsgBox ("Huele a mota, debe ser la bruja motorola del 71")
j = j + 23
End If
If (i = 85) Then
MsgBox ("Aqui esta el pinche pavo, ya me gradue")
chavo.Move 0, 0
pavo.Move 0, 0
End If
Next i
Next j
End Sub
'Bye, espero te sirva