Dim s1 As String = "this is a string you can..."
 
        Dim pos As Integer
        Dim ss As String
 
        ' Vb.Net Art
        pos = InStr(s1, "a string")
        ss = Mid(s1, pos, 8)
 
        Debug.WriteLine(ss)
 
        ' .Net Art
        pos = s1.IndexOf("a string")
        ss = s1.Substring(pos, 8)
 
        Debug.WriteLine(ss)

        ss = Mid(s1, 100, 10)
 
        ' oder
 
        ss = s1.Substring(99, 10)