Question

Hy, i have this code

Dim RandomNumber As New Random()
Dim msg As String = "My name is Nick from Neptune"
For each space as char in msg
msg = msg.replace(" ", RandomNumber.Next(0, 33))
Next

But it does not work.
Can someone help me?
In the end the string should look like this :

My12name455is22Nick88from66Neptune

Thanks in advance and sorry for my English.

Answer 1

I changed it to work, my apologies:

Option Infer On

Module Module1

Sub Main()
    Dim RandomNumber As New Random()
    Dim msg As String = "My name is Nick from Neptune"
    Dim newmessage As String = ""
    Dim d = msg.Split(" ").ToList()

    For Each t In d
        newmessage = newmessage & Convert.ToString(t) & RandomNumber.[Next](0, 33).ToString()
    Next

    Console.WriteLine(newmessage)
End Sub

End Module