Obtener el substring de una palabra - Código fuente en Visual Basic

Problema
Ingrese una palabra y obtenga el substring de la palabra, indicando la posición inicial y el tamaño del substring.

Solución
Se ingresa una palabra  y se pone los índices de comienzo y final,  retornando  la cadena deseada.

• Ingresa = “Alfabeto”

A través de la función  Substring('Alfabeto' ,0,4 ) obtedremos las letras de posición 1,2,3,4

• Resultado = Alfa 

Codigo Fuente en Visual Basic 

 Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim palabra As String
        Dim ini, tam As Integer
        palabra = TextBox1.Text
        ini = TextBox2.Text
        tam = TextBox3.Text
        TextBox4.Text = Mid(palabra, (ini + 1), tam)

    End Sub
End Class   

Descargar Proyecto Visual Basic