Dividir cadena en 2 textBox

[ZeroZ]

Mi objetivo es mostrar una caja de dialogo, y la ruta del archivo que yo he seleccionado mostrarla en dos textBox, al elegir el archivo quiero que la ruta me la deje en un TextBoX y el nombre del archivo en otro. Si el resultado es c:\ruta\archivo.tal quiero que en un text me ponga c:\ruta\ y en otro archivo.tal mi código es este:

Private Sub Command1_Click()
Dim i As byte
Dim longi As byte

lstdialogo.Filter = "Todos (*.*)|*.*|bitmap(*.bmp)|*.bmp|Windows Metafile (*.wmf)|*.wmf|Proyectos (*.vbp)|*.vbp|Formularios (*.frm)|*.frm"
lstdialogo.FilterIndex = 4
lstdialogo.Action = 1
cadena = lstdialogo.filename
longi = Len(cadena)

Do
If cadena(longi) = "\" Then
i = longi
End If
longi = longi - 1
Loop While cadena(longi) <> "\"

Text1 = Mid$(cadena, 1, i)
Text7 = Mid$(cadena, i, Len(cadena))

End Sub

Dim cadena(30) As String la he definido en form load
En If cadena(longi) = "\" Then me da error, dice que no coinciden los tipos, como lo soluciono? El resto de código me va a funcionar?

Saludos