Edito y esta vez con más respeto......
o vives en una put*a nube o no te gusta compartir.
crees que haberlo solucionado es motivo para eliminar un th? si asi fuera, google no existiria. no existiria la info en internet...
creo que comes *****
por otro lado, si no quieres compartir el codigo (ENCIMA VENIS A PEDIR AYUDA), mejor vete a otro lado................. aun no me queda claro como puedes decir eso ._.
No hay necesidad de ser agresivo, si te va mal en la vida no castigues a gente inocente, por otro lado, ¡que locura! después de leer tu maleducado comentario cualquiera pensaría que el que come ***** eres tu
El thread lo abrí para consultar algo que a los pocos minutos me dí cuenta de donde estaba el error, lo solucioné y por lo tanto me pareció innecesario seguir con el thread. De todas formas, el código SI lo postié, simplemente luego lo edité, no es cuestión de egoísmo alguno.
Private Sub change_Click()
Dim strWords() As String
Dim iFile As Long
Dim strFilename As String
Dim strData As String
strFilename = app.path "\words.txt"
iFile = FreeFile
Open strFilename For Input As #iFile
strData = Input$(LOF(iFile), #iFile)
Close #iFile
strWords() = Split(strData, vbNewLine)
Dim variable As String
Text1.Text = strWords(Int(Rnd * UBound(strWords)))
End Sub
Ahora estoy viendo las otras opciones que me plantean, aunque esto no es para algo muy simple que realmente no necesita un resultado único, sino más bien darle un orden sin necesidad de elegirlo, gracias BlackZeroX, está excelente.