Solucionado,
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Function Reemplazar_Aleatorio(Texto_orig As String, caracter_a_sustituir As String)
Randomize
For x = 1 To Len(Texto_orig)
If Mid(Texto_orig, x, 1) = caracter_a_sustituir Then
Texto_orig = Mid(Texto_orig, 1, x - 1) & "PT" & Int(Rnd * 6) & "PTC" & Right(Texto_orig, Len(Texto_orig) - x)
End If
Next
Reemplazar_Aleatorio = Texto_orig
End Function
Citarhola soy un gordo requete puto
CitarholaPT0PTCsoyPT5PTCunPT5PTCgordo requete puto
sBuscar = "x"
Randomize
sPoner = Str(Int(Rnd * 6))