Case "ф": c = "a"
Case "ы": c = "s"
Case "в": c = "d"
Case "а": c = "
End Selecеt
Next

вот так вроде