＞Dim EllipseWidth As Double
で
＞If EWidth > 0.1 Then
とは何事だ。

＞cmd細_Click()
そんな名前付けるな