Visual Basic

<code lang=vbnet>
Public Shared Function GetASCIIRating(ByVal Value As String) As Integer
'Setup a Byte variable and a Try...Catch statement.
'When the CByte function casts Value to a Byte, an exception will be thrown if it is larger than 255.
'A Byte has a max value of 255 because, 255 in binary is 1111, which is one byte.
    Dim TestedValue As Byte
    Try
        TestedValue = CByte(Value)
    Catch
        'Return -1 for all non-Standard and non-Extended ASCII byte values.
        Return -1
    End Try
    'Check if Value is Standard ASCII Character
    If (TestedValue >= 0 And TestedValue <=127) Then
        Return 0
    'Check if Value is Extended ASCII Character
    ElseIf (TestedValue > 127 And TestedValue <=255) Then
        Return 1
    'If all else fails, return -1
    Else
        Return -1
    End If
End Function

'Test our function
MsgBox(GetASCIIRating(56))
MsgBox(GetASCIIRating(132))
MsgBox(GetASCIIRating(256))
</code>

Private Sub frmMainMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Setup the frmMainMenu properties 
    frmMainMenu.WindowState = FormWindowState.Maximized
    frmMainMenu.IsMdiContainer = True
    frmMainMenu.Text = "Main Menu"
End Sub