creando juego con programacion vba

Programando el evento KeyUp del UserForm1(Formulario)

Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

'Select Case - End Select : Una estructura de programación
'if Then - Else End If : Estructura de prog. condicional

Select Case KeyCode
    Case 36 'Tecla Inicio
        Image3.Top = 113.25
        Image3.Left = 206.3
    Case 38 ' Tecla flecha Arriba
        If Image3.Top <= 0.05 Then
           Image3.Top = 0.05
        Else
           Image3.Top = Image3.Top - 10
        End If
    Case 40 'Tecla flecha abajo
        If Image3.Top >= 231.75 Then
           Image3.Top = 231.75
        Else
           Image3.Top = Image3.Top + 10
        End If

    Case 37 'Izquierda
        Image3.Left = Image3.Left - 10
    Case 39 'Derecha
        Image3.Left = Image3.Left + 10
End Select

End Sub