Const ZeichenDavor As Integer = 6

Const ZeichenDahinter As Integer = 4

Dim Text As String

Dim IsolierterText As String

  Text = "ghfklpTESTRINGjhgu"

  IsolierterText = Mid(Text, ZeichenDavor + 1, _

    Len(Text) - (ZeichenDavor + ZeichenDahinter))

  MsgBox "Isolierter Text: " + IsolierterText