Option Explicit

Sub liczReszte()

    Dim liczba(1 To 2) As Integer
    Dim reszta As Integer
    Dim i As Integer
    
    Do
        i = i + 1
        On Error GoTo blad
        liczba(i) = InputBox("Podaj liczbę:", "Liczba " & i)
    Loop Until i = 2
    
    reszta = liczba(1) Mod liczba(2) ' obliczenie reszty
    
    If (liczba(1) Mod 2) = 0 And (liczba(2) Mod 2) = 0 Then
       MsgBox reszta ' wyświetla resztę dwóch parzystych liczba

    ElseIf liczba(1) Mod 2 = 1 And liczba(2) Mod 2 = 1 Then
        MsgBox reszta ' wyświetla resztę dwóch nieparzystych liczba

    Else
        MsgBox "Nie spełniono warunków obliczenia reszty"
        ' nie podano w jednej iteracji dwóch liczb z jednego rodzaju (parzystych lub nieparzystych)
    End If
    Exit Sub

blad:
    MsgBox "Wprowadź liczbę!", vbCritical
    Resume

End Sub