Public Shared Function Mid( _
   ByVal str As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) As String

Dim word As String
Private Sub Command1_Click()
    word = Text1.Text
    s_word = Mid(word, 8, 3)
    MsgBox s_word
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "Mid"
End Sub

Si insertas "EJEMPLOMID" en el textbox tu msgbox devolverá "MID"

hola, usa la función "INSTR" para buscar las palabras claves como "nombre, nick, etc.", luego usas "MID" para extraer y asignar al msgbox ..

todo lo puedes hacer en una sola linea ..