Как сделать движение змейки по синусоиде в vba

[Yurec2407]

Sub Макрос()

Dim x(10)
Dim y(10)
Dim shar(10)

vx = 5
vy = 5

For нш = 1 To 10
x(нш) = 20
y(нш) = 20
Next

Do
For нш = 1 To 10
Set shar(нш) = ActiveSheet.Shapes.AddShape(msoShap eOval, x(нш), y(нш), 50, 50)
Next

t = Timer: Do While Timer - t < 0.1: DoEvents: Loop

For нш = 1 To 10
shar(нш).Delete
Next

If x(1) > 400 Then
vx = -5
End If

If x(1) < 20 Then
vx = 5
End If

If y(1) < 20 Then
vy = 5
End If

If y(1) > 300 Then
vy = -5
End If

For i = 10 To 2 Step -1
x(i) = x(i - 1)
y(i) = y(i - 1)
Next
x(1) = x(1) + vx
y(1) = y(1) + vy
Loop
End Sub

как же сделать змейку волнистой?

[Yurec2407]

Вот уже усправил