1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
Dim strList As String Select Case Me.A.Value Case "M" strList = "Y" Case "N" strList = "Z" End Select Me.B = strList