Estoy desarrollando una pequeña aplicación en visual basic 6.0 en donde guardo la dirección ip local de mi pc en una variable (Ej: 192.168.1.20), necesito recorrer esa cadena de derecha a izquierda hasta encontrar un punto ".", quitar los dos ultimos digitos y guardar la nueva cadena (Ej: 192.168.1.) sin el 20 o los digitos finales.

Espero haber explicado bien mi problema.

NOTA (La dirección ip cambia segun el lugar donde se ejecute, incluyendo subred EJ: 192.168.11.122, por lo que el tamaño de la cadena varia)

De antemano gracias...

Si se trata de quitar los dos ultimos digitos
a="123456789"
?mid(a,1,len(a)-2)
1234567

En caso contrario con dos cajas de texto y un boton tenemos
Private Sub Command1_Click()
Dim a As String
Dim b As Boolean
Dim n As Integer
a = Text1
b = False
For n = Len(a) To 1 Step -1
If Mid(a, n, 1) = "." Then
Text2 = Mid(a, 1, n + 1)
b = True
Exit For
End If
Next
If b = False Then
MsgBox "No he encontrado nigun punto"
End If
End Sub

Muchas Gracias Pedro Luis.

Es exactamente lo que necesitaba
If Mid(a, n, 1) = "." Then
Text2 = Mid(a, 1, n + 1)
estas dos lineas solucionaban mi problema.

Muchas Gracias ....!