-
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 :confused: :confused: :confused: :eek:
-
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
-
Aha, a plug if ever I saw one, cheers Active !
