|
-
Apr 15th, 2001, 04:10 PM
#1
Thread Starter
Evil Genius
Okay, very good, but I'm beat, what's your signature say ???!?!?!?!
Code:
Private Sub Form_Load()
Dim x As String, y As Variant
y = Array("68", "74", "74", "70", "3A", "2F", "2F", "77", _
"77", "77", "2E", "63", "6F", "6F", "6C", "67", "61", "6D", _
"65", "73", "63", "65", "6E", "74", "72", "61", "6C", "2E", _
"63", "6F", "6D")
Dim i As Integer
For i = 0 To UBound(y)
x = x & Chr(Asc(y(i)))
Next i
MsgBox x
End
End Sub
I've tried & can't figure out the message - It's worse than Batmans old ones :rollleyes:
What is it saying
-
Apr 15th, 2001, 04:45 PM
#2
Addicted Member
The code should be..
Code:
Private Sub Form_Load()
Dim x As String, y As Variant
y = Array("68", "74", "74", "70", "3A", "2F", "2F", "77", _
"77", "77", "2E", "63", "6F", "6F", "6C", "67", "61", "6D", _
"65", "73", "63", "65", "6E", "74", "72", "61", "6C", "2E", _
"63", "6F", "6D")
Dim i As Integer
For i = 0 To UBound(y)
x = x & Chr("&H" & y(i))
Next i
MsgBox x
End
End Sub
-
Apr 15th, 2001, 04:47 PM
#3
Thread Starter
Evil Genius
Aha, a plug if ever I saw one, cheers Active !
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|