codice:
Dim numeroOrdine As String = stringaDiOrigine.Substring(22, 8)
Dim pezzi() As String = stringaDiOrigine.Substring(35, 10).Split("/")
Dim dataOrdine As Date = New Date(CInt(pezzi(2)), CInt(pezzi(1)), CInt(pezzi(0)))
Con substring(X,n) gli prende gli n caratteri dalla posizione X (il primo carattere è il numero 0)
Il numero dei caratteri però deve essere sempre lo stesso!

Ti serve qualcosa di più complesso?