Imports System

Public Class Program
    Public Shared Sub Main(args As String())
        Dim A As Integer
        Dim B As Integer
 
        Dim ans As Integer
 
        A = InputBox("Aの値は？")
        B = InputBox("Bの値は？")
 
        ans = 6 - A - B
 
        MsgBox(ans)
    End Sub
End Class