Select Selected_Reason.ToLowerCase ' Added '.ToLowerCase'
Case "delivery" ' All lowercase
Log("Delivery selected")
Case "collection" ' All lowercase
Log("Collection selected")
Case "meeting" ' All lowercase
Log("Meeting selected")
Case "just visiting" ' All lowercase
Log("Just visiting selected")
Case Else
Log(Selected_Reason)
End Select