Dim gender As String gender = InputBox("What is your gender:" & vbCrLf & "(F=FEMALE,M=MALE.)") If gender = Empty Then Exit Sub Selec