If Not nWord > Len(ArrayCommand) Then
        Dim ArrayCommand() As String = Split(frase)
        Return ArrayCommand(nWord).ToString
Else
        Return "Out of range"
End If

Public Function ReadCommand(ByVal frase As String, ByVal nWord As Integer) As String
        Dim ArrayCommand() As String = Split(frase)
        Return ArrayCommand(nWord).ToString
    End Function

//Module: stx_mll

    Public Sub cmd_clear()
        Try
            Select Case stx_mll.ReadCommand(txtRead, 1)
                Case "-all"
                    ClearScreenDelftonesScript()
                Case Else
                    cmd_error()
            End Select
        Catch
            ClearScreenDelftonesScript()
            StartDelftonesScript()
        End Try
    End Sub

		Dim frase As String = "Split mola mucho"
		
		Dim comando() As String = Split(frase)
		
		Console.WriteLine("La primera palabra es: " & comando(0))
		Console.WriteLine("La segunda palabra es: " & comando(1))
		Console.WriteLine("La tercera palabra es: " & comando(2))

	Public Function FirstWord(Byval frase As String) As String
		Dim word As String = ""
		
		For i As Integer = 1 To Len(frase)
		'Analizamos desde la posición 1 hasta el maximo de la frase por un For buscando el espacio en blanco
		'para saber que se comienza a escribir una segunda palabra, y por tanto, sabemos cual es la primera
			If Mid(frase,i,1) = " " Then
				word = Mid(frase, 1, (i - 1))
				Return word
				Exit for
			End If
		Next
		If word = "" Then
		'Si la variable "word" no tiene nada guardado (esto se debe a que solo hay una palabra en la frase)
		'procedemos a guardar en word la frase entera
			Return frase
		End If
	End Function

	Public Function SecondWord(ByVal frase As String) As String
		Dim word As String = ""
		Dim startSecondWord As Integer = 0
		
		For i As Integer = 1 To Len(frase)
			If Mid(frase, i, 1) = " " Then
				startSecondWord = i + 1 'añadimos el +1 para que se salte el espacio y comienze por la 2º palabra directamente
				frase = Mid(frase,startSecondWord) 'Guardamos la frase ya con la primera palabra quitada
			End If
		Next
		
		For x As Integer = 1 To Len(frase)
			If Mid(frase, x, 1) = " " Then
				word = Mid(frase,1, (x - 1))
				Return word
				Exit For
			End If
		Next
		If word = "" Then
		'Si la variable wrod esta vacia, igual que en FirstWord devolvemos la frase entera, que ya ha sido cortada la primera
		'palabra el primer For de esta función
			return frase
		End If
	End Function

		Me.label1.Location = New System.Drawing.Point(12, 9)
		Me.label1.Name = "label1"
		Me.label1.Size = New System.Drawing.Size(100, 23)
		Me.label1.TabIndex = 0
		Me.label1.Text = "label1"

		AddHandler Me.label1.Click, AddressOf Me.Label1Click

		AddHandler Me.label1.DoubleClick, AddressOf Me.Label1Click

WithEvents x As System.Windows.Forms.Label