Simple

Module VBModule
 
    Sub Main()
        Dim a,b,T1,T2,F,y as Integer
        y= 1
        while y = 1 
        
            a = Console.ReadLine()
            b = Console.ReadLine()
            If (a = 1 or a= 0) & (b = 1 or b=0) Then
            y = 0
            End If
            End while
        
        If a = Not b Then
        T1 = 1
        Else 
        T1 = 0
        End If
        
        If a = b & a = 1 Then
        T2 = 1
        Else 
        T2 = 0
        End If
        
        If T1 = 1 or T2 =1 Then
        F=1
        Else 
        F=0
        End If
        
    End Sub
  
End Module