エラーに対して何が足りないのかがわかりません

Question

2つの整数の最大公約数を求めたく、フローチャートを起こす段階まではできたと思うんですが実行する際にエラーが表示されて何を行えばいいのかがわかりません。
  
###発生している問題・エラーメッセージ

sub、function、またはpropertyが必要です。
と表示され、Sub sunple10()が黄色でマーカーされます。

###該当のソースコード

Sub sunple10()

Dim M As Integer
Dim N As Integer
Dim X As Integer

M = 0
N = 0
X = 0

M = InputBox("M = ")
N = InputBox("N = ")

Label:
If M = N Then

MsgBox "saidaikouyakusuu = " & M

Else
M -N = X

If X > 0 Then

M -N = M
Else
N -M = N

End If
End If
GoTo Label

End Sub

###試したこと
課題に対してアプローチしたことを記載してください

###補足情報(言語/FW/ツール等のバージョンなど)

Answer 1

黄色でマーカー

構文エラーがある状態で実行しようとしたためサブルーチンの先頭で実行が中断しているということを意味すると思います。
例えばExcel上でVBAを動かすと構文エラーがあってもとりあえず実行が始まってしまいます。しかし結局はエラーがあるサブルーチンの先頭で止まってしまいます。このときトンチンカンに見えるエラーメッセージが出ることも珍しくないようです。こうした場合まずは代入文や制御文(IF,FOR,WHILE等々のネスト)などを注意深く見直し構文エラーを無くすようにするとよいでしょう。

本コードの例では代入文に構文エラーがあります。代入先の変数は'='の左辺に書くのが正しいです。
A - B = C ×
C = A - B ○

ところでこのプログラムは答えが出ても止まらず無限ループします、答えを出した後にEnd Subで実行を終わらせた方がいいのでは？

Comments

[mana_mana]

わかりやすい説明ありがとうございます。構文エラーは直すことができて、無事ほしい答えを出すことができました。おっしゃっていただいた通り、無限ループしてしまったんですがそれも解決できました。ありがとうございました。