Function GetChoice(R1 As Range, R2 As Range, R3 As Range) As Variant
If R1.Value = 100 Then
GetChoice = "i"
ElseIf R1.Value = 200 Then
GetChoice = "j"
ElseIf R2.Value = 100 Then
GetChoice = "p"
ElseIf R2.Value = -100 Then
GetChoice = "q"
ElseIf R3.Value = 1 Then
GetChoice = "j"
ElseIf R3.Value = 2 Then
GetChoice = "k"
ElseIf R3.Value = 3 Then
GetChoice = "l"
ElseIf R3.Value = 4 Then
GetChoice = "m"
Else
GetChoice = 0
End If
End Function