'最小公倍数

Option Explicit

Private Sub Command1_Click()

Dim space As Integer　　　　　　'最初の Text にくぎって入力したスペースが何文字目にあるかなどを記録する。
Dim space2 As Integer　　　　　 ' warerukazu に keisansuu をスペースでくぎって格納したときの、スペースの位置を記録する。
Dim moji As String　　　　　　　' Text の内容を moji に移して、その内容をコピーしたり切り取ったりする。

Dim suu As Integer　　　　　　　' Text に入力された数字の数にともない、keisansuu の配列数を記録する。
Dim keisansuu As Integer　　　　' Text に入力された数字を切りとり、ひとつずつ保存する。
Dim amari As Byte　　　　　　　　' keisansuu が sosuu で割りきれるかどうか、amari で確認する。
Dim sosuuhyo As String　　　　　' 素数をたくさん格納するところ (2700までの素数)
Dim sosuu As Byte　　　　　　　 ' keisansuu をわる素数
Dim suusuu As Integer　　　　　 ' For 文などで suu の数字が変わったりするときのために、配列数を記録しておく。
Dim sosuujyun As Byte　　　　　 'わった素数を書いておくところ
Dim jyun As Integer　　　　　　 'その素数の数に因る配列
Dim warerukazu As String　　　　' keisansuu のうち、 sosuu で割りきれた数を記録しておくところ

Dim answer As Integer ' 最後に、sosuu と、sosuu　でわった　keisansuu　を、answer　に格納しながら、かけあわせる。

'―――――――――――――――――――――――――――――――――――――――――――――――――――――

If Text1.Text = "" Then
MsgBox "最小公倍数を求めたい数字を、「 」(半角スペース) でくぎっていれてください。"
End If

suu = -1
moji = Text1.Text