vb.net - select case メソッド以外のコマンドを作成する方法 vb.net

Question

テキストベースのゲームを作る。入力テキストボックスの出力ボックスとテキストボックスとしてリッチテキストボックスから作成されたコマンドプロンプトがあります。「cls」「dir」「config」などのコマンドをいくつか作成する必要があります。私のリストにはさらに多くのコマンドがあります。私はその方法と解決策へのアプローチ方法に固執しました。ここに私のコードがありますが、select caseメソッドでそれらのいくつかを疲れさせましたが、あまりにも原始的です。

    Private Sub Output(s As String)
    If s <> "" Then
        nCounter = nCounter + 1
        sCounter = Convert.ToString(nCounter)
        consoleoutputbox.AppendText(vbCrLf & sCounter & " " & s)
    End If
End Sub
Private Sub consoleinputbox_KeyDown(sender As Object, e As KeyEventArgs) Handles consoleinputbox.KeyDown
    Dim Command As String = consoleinputbox.Text
    If e.KeyCode = Keys.Enter Then
        If Command <> "" Then
            Select Case Command
                Case "cls"
                    consoleoutputbox.Clear()
                    consoleinputbox.Clear()
                    consoleinputbox.Focus()
                    nCounter = 0
                Case "help"
                    Output("Welcome to help section. Avaliable commands:")
                    Output("help, cls")
                Case Else
                    Output(Command)
                    consoleinputbox.Clear()
                    consoleinputbox.Focus()
            End Select
        End If
    End If
End Sub