String Enumerations in VB.NET

'Simple Commands via string enumeration by David. Rathbone.
Public Class Form1

    'Enumeration of your programs commands note all in upper case
    Private Enum ProgramCommands
        RUN_MOTOR
        STOP_MOTOR
        MOVE_ARM
        FIRE_GUN
    End Enum

    'Test button to input a command from a textbox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Get Command From your programs input  
        Dim sCommandToTest As String = TextBox1.Text.ToUpper 'Keep string to upper case
        'First is the command to check in your program commands Enumeration? (True=Yes False= no)
        If CBool(CType([Enum].IsDefined(GetType(ProgramCommands), sCommandToTest), ProgramCommands)) Then
            'Command IS in Enumeration ~ now look though all the commands and get the one selected
            Dim testcase As ProgramCommands = CType([Enum].Parse(GetType(ProgramCommands), sCommandToTest, True), ProgramCommands)
            'Just go through each case to add your commands action
            Select Case testcase
                Case ProgramCommands.RUN_MOTOR
                    Label1.Text = "Run motor action stuff here"
                Case ProgramCommands.STOP_MOTOR
                    Label1.Text = "Stop motor action Stuff here"
                Case ProgramCommands.MOVE_ARM
                    Label1.Text = "Move arm action stuff here"
                Case ProgramCommands.FIRE_GUN
                    Label1.Text = "Fire gun action stuff here"
                Case Else
                    Label1.Text = "Should never get here!"
            End Select
        Else
            'Command Not in Enumeration
            Label1.Text = "False :- No such command"
        End If
    End Sub
End Class