Imports System
Public Main
Public Module Module1
Public Function aChar(nCode as integer) as Char
Select nCode
Case 65
return "A"
Case 66
Return "B"
Case 67
Return "C"
Case 68
Return "D"
Case 69
Return "E"
Case 70
Return "F"
Case 71
Return "G"
Case 72
Return "H"
Case 73
Return "I"
Case 74
Return "J"
Case 75
Return "K"
Case 76
Return "L"
Case 77
Return "M"
Case 78
Return "N"
Case 79
Return "O"
Case 80
Return "P"
end select
End function
End Module