finde noget i en string

hvis nu jeg har
minstring = "jsdadhajdhajdahsdjhjashdadhahdsd&kode=sdasd9asdas9da9ds9asd9asd9saida9id9aid9ais9dia9sdia9sdi9asid9said9aisdaisd9aiskxckzczxjc"

så skal den finde 35 bogstaver efter &kode=

Dim nStart As Long
Dim strKode As String
Dim minstring As String

  minstring = "jsdadhajdhajdahsdjhjashdadhahdsd&kode=123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ"
 
  nStart = InStr(1, minstring, "&kode=", vbTextCompare)
  If nStart > 0 Then
    nStart = (nStart + 6) ' + længde af "&kode=" (+ 6)
    strKode = Mid$(minstring, nStart, 35)
  End If

  MsgBox strKode