Visual Basic para Aplicaciones - problema con goto

hOLA :
Tengo un pequeño problema.

no puedo hacer que escriba en un text al hacer el siguiente codigo.

vuelta:
If m < Text1.Text - 3000 Then
a = 1
f = a + b + c + d
Out &H378, f
m = m + 1
Text2.Text = m
GoTo vuelta
End If

escribe el dato en el puerto correctamente, pero no escribe el dato en el text.Agradeceria alguna sujerencia.

saludos:
Carlos

hOLA :
Tengo un pequeño problema.

no puedo hacer que escriba en un text al hacer el siguiente codigo.

vuelta:
If m < Text1.Text - 3000 Then
a = 1
f = a + b + c + d
Out &H378, f
m = m + 1
Text2.Text = m
GoTo vuelta
End If

escribe el dato en el puerto correctamente, pero no escribe el dato en el text.Agradeceria alguna sujerencia.

saludos:
Carlos

no estoy seguro, pero por las dudas probá
agregarle un DoEvents justo después de la línea
Text2.Text = m

Saludos, desde Baires, JuanC

gracias, JuanC
ahora funciona de primera

Saludos:

Carlos