String User Def Funcs


UserID, Username

Function wwUserid() As String
    wwUserid = Left(Application.UserName, 12)      
    'See GetWorkstationInfo for Early versions of excel
End Function




Convert a string of any Ascii character (base 256 ) to a Hexadecimal (base 16) 
representation
Public Function udsStringToHex(S As String) As String
	'uds = User Defined String function, third party supplied, public domain.	
	'will convert a string of arbitrary length and create a Hexadecimal 
	'string representation of the input string.   
	'each character of the input string (base 256) is converted to 
	'two base 16 chacters: 0,1,2,...9,A,B,..F.
	'from John Nurick: 040821 microsoft.public.access.modulesdaovba
   Dim j As Long, T As String

   For j = 1 To Len(S)
     T = T & Right("0" & Hex(Asc(Mid(S, j, 1))), 2)
   Next
   udsStringToHex = T
End Function

UserID, Username

Convert a string of any Ascii character (base 256 ) to a Hexadecimal (base 16) representation