Hi, I am new to this forum. I am working on a project that will hold the emojis in a listbox and randomize them and then select one.
this is the code I have working with the listbox but I am unsure how to make the "tmp" string an actual emoji character.
any help is appreciated.
Code:
Dim a As Long
Dim tmp As String
Dim rnd As New Random
tmp = ""
If ListBox2.Items.Count <= 0 Then
Exit Sub
End If
For a = 1 To Val(1)
tmp = tmp & ListBox2.Items(rnd.Next(ListBox2.Items.Count))
Next
this is the code I have working with the listbox but I am unsure how to make the "tmp" string an actual emoji character.
any help is appreciated.