Загрузка данных

Sub Lab1_11()
    Dim lngDividend As Long, lngDivisor As Long, lngRemainder As Long
    
    lngDividend = InputBox("Введите делимое (число, которое делят)", "Остаток от деления", 10)
    lngDivisor = InputBox("Введите делитель (на что делят)", "Остаток от деления", 3)
    
    ' Оператор Mod возвращает остаток от деления
    lngRemainder = lngDividend Mod lngDivisor
    
    MsgBox "Остаток от деления = " & lngRemainder, vbInformation, "Остаток от деления"
End Sub