Если честно то ошибок столько что легче заново написать с нуля.
Ошибки не синтаксические. а стратегические.
Делай как я тебе написал. иначе утонешь в логике.
выходить из цикла элементарно по переменной:
While Not menu_stat<>0
тут твой цикл
выход - присвоение переменной menu_stat любого значения отличного от нуля
Wend
Select menu_stat
Case 1
Go_game()
Case 2
Repeat_game()
Case 3
Go_graphics()
...
End Select