Угадать два числа - VBA

Формулировка задачи:

Морской бой. Машина задумывает два числа от 0 до 9. Игрок пытается их угадать, вводя свои два числа. Если они совпали (в любом сочетании), то игрок выиграл на VBA

Решение задачи: «Угадать два числа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Carter()
    Dim a As Integer, b As Integer, c As Integer, d As Integer
    Randomize
    Do
       a = Int(Rnd * 10)
       b = Int(Rnd * 10)
    Loop Until a <> b
m:  c = Val(InputBox("Введите первое число от 0 до 9", "Ввод данных", Int(Rnd * 10)))
    d = Val(InputBox("Введите второе число от 0 до 9", "Ввод данных", Int(Rnd * 10)))
    If c = d Then MsgBox "Числа должны быть разными!": GoTo m
    If (c > 9 Or d > 9 Or c < 0 Or d < 0) Then MsgBox "Вводите числа от 0 до 9!": GoTo m
    If (c = a And d = b) Or (c = b And d = a) Then
        MsgBox "Правильно!"
    Else
        MsgBox "Неправильно!" & vbCrLf & "Компьютер задумал:  " & a & " и " & b & vbCrLf & "Ваши числа:    " & c & " и " & d
    End If
End Sub