Visual Basic - REMPLAZAR UNA POSICION ESPECIFICA EN UNA CADENA

Private Sub Command1_Click()

 Dim Cadena, Caracter As String

 Dim Pos, I, P, Ind As Integer

 Cadena = Text1.Text 'Contenido donde buscar 000,AVION,CARRO,PERRO,CAMA

 Caracter = "," ' Caracter a buscar

 P = 0 ' Tomara la posicion del caracter encontrado

 Ind = 0 ' Controla los caracteres encontrados

 For I = 1 To Len(Text1.Text) Step 1

   Pos = InStr(I, Cadena, Caracter)

   If Pos > P Then

      P = Pos ' Posicion del caracter

      Ind = Ind + 1 ' Numero de caracter

   If Ind = 3 Then 'Si es igual a 3 lo reemplazamos y salimos

      Text1.SelStart = P - 1

      Text1.SelLength = 1

      Text1.SelText = "-"

    Exit Sub

   End If

  End If

 Next

End Sub