Private Sub Command1_Click()
If Val(Text1) Mod 2 = 0 Then
If Val(Text1) Mod 3 = 0 Then
If Val(Text1) Mod 5 = 0 Then
MsgBox "Angka tersebut kelipatan 2,3 dan 5", vbInformation, "Information"
Else
If Val(Text1) Mod 2 = 0 Then
If Val(Text1) Mod 5 = 0 Then
MsgBox "Angka tersebut kelipatan 2 dan 5", vbInformation, "Information"
Else
If Val(Text1) Mod 2 = 0 Then
If Val(Text1) Mod 3 = 0 Then
MsgBox "Angka tersebut kelipatan 2 dan 3", vbInformation, "Information"
Else
If Val(Text1) Mod 2 = 0 Then
If Val(Text1) Mod 5 = 0 Then
MsgBox "Angka tersebut kelipatan 3 dan 5", vbInformation, "Information"
Else
If Val(Text1) Mod 2 = 0 Then
MsgBox "Angka tersebut kelipatan 2", vbInformation, "Information"
Else
If Val(Text1) Mod 3 = 0 Then
MsgBox "Angka tersebut kelipatan 3", vbInformation, "Information"
Else
If Val(Text1) Mod 5 = 0 Then
MsgBox "Angka tersebut kelipatan 5", vbInformation, "Information"
Else
MsgBox "Angka tersebut bukan kelipatan 2,3,5", vbInformation, "Information"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub