Это как будет выглядеть ?
Типо:

Case "ф": c = "a"
Case "ы": c = "s"
Case "в": c = "d"
Case "а": c = "
Next
End Select

Так ?