Yousername
Elite Member
http://www.roubaixinteractive.com/PlayGround/Binary_Conversion/Binary_To_Text.asp
0100100100100000011001100110111101110101011011100110010000100000011011010111100100100000011001100110100101110010011100110111010000100000011101110110000101101100011010110110100101101110011001110010000001101100011010010110001001100101011100100111010001111001001000000110100001100001011011000110011000100000011001000110111101101100011011000110000101110010001000000111010001110111011011110010000001110111011001010110010101101011011001010110111001100100011100110010000001100001011001110110111100100000011000010110111001100100001000000110101101100101011001010111000000100000011001110110111101101001011011100110011100100000011000100110000101100011011010110010000001110100011011110010000001101101011110010010000001110000011011110111001101110100001000000111010001101111001000000111001001100101011011000110100101110110011001010010000001110100011010000110010100100000011001010111100001100011011010010111010001100101011011010110010101101110011101000010000100100000001000000100100101110011001000000111010001101000011000010111010000100000011101110110010101101001011100100110010000111111
Code:
Public Function WalkerThread(ByRef Message As String)
Message = MsgBox("I found a Walker!")
End Function
Private Sub Finds()
Dim Found as String
If Found = "Walker" Then
Call WalkerThread(Message)
End If
End Sub
There may be a few bugs in the code i didn't debug it