Cách làm của Tùng Gà bị dài do tách riêng lần 2 ra thành 1 đoạn code, lần 3 trở đi thành 1 đoạn code. Mình thử viết ngắn lại 1 chút 
Sub test()
Dim den() As Integer, i As Integer, j As Integer, a As Integer
a = InputBox("Nhap so den")
ReDim den(1 To a)
For i = 1 To a
den(i) = 1
Next i
For i = 2 To a
For j = i To a
If j Mod i = 0 Then den(j) = den(j) * -1
Next j
Next i
For i = a To 1 Step -1
If den(i) = 1 Then
MsgBox ("den dang bat co vi tri lon nhat la: " & i)
Exit Sub
End If
Next i
End Sub