WASD Problems.

[sir zach]

Shouldn't this work, like, honestly.

```
            If KeyCode = vbKeyUp Or KeyCode = vbKeyW Then
                DirUp = True
                DirDown = False
                DirLeft = False
                DirRight = False
            End If

            If KeyCode = vbKeyDown Or KeyCode = vbKeyS Then
                DirUp = False
                DirDown = True
                DirLeft = False
                DirRight = False
            End If

            If KeyCode = vbKeyLeft Or KeyCode = vbKeyA Then
                DirUp = False
                DirDown = False
                DirLeft = True
                DirRight = False
            End If

            If KeyCode = vbKeyRight Or KeyCode = vbKeyD Then
                DirUp = False
                DirDown = False
                DirLeft = False
                DirRight = True
            End If
```