All pastes #162701 Raw Edit

Untitled

public text v1 · immutable
·published 2006-09-06 19:41 UTC
rendered paste body
Option Explicit

Private Sub cmdConvert_Click()
    txtCode(0).Text = KeyCode("A")
End Sub

Public Function KeyCode(KeyStr As String) As String

    Select Case KeyStr
        Case "A": KeyStr = Chr(KeyStr)
    End Select
End Function