Просто передайте значение в словарь, и он вернет вам значение ключа, если ваш словарь имеет следующий вид:
Private Status As New Dictionary (Of String, String)
Status.Add("Y", "Married")
Status.Add("N", "Single")
Status.Add("X", "Its Complicated")
Ниже строки кода вернет вам ключ
Dim Key As String = Status("Single")
Ключ = N