Tio.. has dicho siempre lo mismo.
NINGUN HILO MAS INTENTARÁ ACCEDER A ESA VARIABLE!!!..

Porque me la haces repetir tantas veces MANULON? Y ya se utilizar el Sinklock.

Un Hilo, ejecutará OTRO HILO, y le pasará una variable.. éste hilo tiene que procesarla (reemplazarle unas letras por otras) y terminar. luego el otro sigue haciendo lo que quiere cone sa varible..

Porque sigues diciendo eso de INTERBLOQUEOS TIO?!?!?!?!?!?!!!!!!!!!!!!!!! Me pones los pelos de punta!!!! Ya lo has dicho 3 veces!!!.....

Sabes como pasar una variable por referencia? SI O NO?!

Que ponga el codigo fuente?......................................................................................
Si tuviese el codigo fuente, ya estaria solucionado...

Todo el demas codigo que tengo en el proyecto, no tiene nada que ver.. y solamente los confundirá mas (y son mas de 700 lineas)....

No puede ser que no exista manera de pasar una variable por referencia...
Aunque, estuve pensando lo siguiente:
Si el hilo que voy a crear, en vez de ser un metodo, es una CLASE diferente, entonces, mediante metodos SET Y GET puedo cambiar ese valor. y utilizarlo como varible global para la propia clase del hilo...

Se entiende?

Bueno espero tener tu solución.
Me puse a revisar el ThreadStart pero vi que no le podía pasar parámetros y vi el post de seba y.... ParameterizedThreadStart cha channn 

Private Sub Iniciar()   
        Dim Var As Integer
 
        For i As Integer = 1 To 10
            Procesar(Var)
            ListBox1.Items.Add("Item " & Var)
        Next
End Sub
 
Private Sub Procesar(ByRef dato As Integer)
        Dim P As Thread
        Dim Clase As New C01
 
        P = New Thread(New ParameterizedThreadStart(AddressOf Clase.AAA))
 
        P.Start(dato)
        P.Join()
        dato = Clase.Dato
 
End Sub
 

Y acá la clase a la que le pasas el valor:

Public Class C01
 
    Private _Dato As Integer
 
    Public Property Dato() As Integer
        Get
            Return _Dato
        End Get
        Set(ByVal value As Integer)
            _Dato = value
        End Set
    End Property
 
    Public Sub AAA(ByVal p As Integer)
        p += 1
        Dato = p
    End Sub
 
End Class

Quedaría adaptarlo, pero creo que esta bien.

Saludos!