Método string.substring - Visual Basic 6.0

[paula76]

Hola a todos, estoy usando en un programa el método string.substring de este modo:
    Dim cad As String
    cad = "315 VIVIENDAS"
    pos = 5
   
    Dim num As String
    num = cad.substr(pos - 4, 3)
    MsgBox "Hay " & num & "viviendas."

pero me da el siguiente error de compilación: Calificador no válido

Mi idea, es la de buscar en un RichTextBox, la palabra "viviendas" y saber cual es el número que aparece antes de esta palabra. Por eso utilizo el método string.substring para buscar una cadena dentro de subcadenas. Pero no me funciona. Así que quería saber si hay otro método de cadenas que pueda utilizar.

Muchas gracias.

[Jareth]

Código [Seleccionar] Expandir


dim pos as long
pos=InStr(1,Text1.text,"viviendas",vbtextcompare)
if pos>0 then
......  'Encontró algo(pos devuelve la posicion)
else
end if

Investiga sobre la funcion InStr creo que te será bastante util.
Saludos.

PD:Que mal se ve lo del GeSHi,sinceramente.

[Hendrix]

el Substring es para VB.Net, para VB equivale a Mid.

Un Saludo.