Converting an ASCII string, and adding a space between the Hex output for easy readability:  "String Expert" needed!

Hi Folks,

I have a "problem" that I just don't have the time to sit down and figure out.  I've written 95% of the code that I need to, but I'm hung up on a "simple" (that's a laugh!) problem that is just eluding me (I KNOW I am not a "string expert")..

PROGRAM CONTROLS:  1 Form, 2 Textboxes, and 1 Command Button
Textbox1 is for the string input, Textbox2 is strictly for the Hex output conversion, the Command Button initiates the event.


Below is the code associated with the program, first the code in the form:
'*****************************************************
Private Sub Command1_Click()
Dim HexData As String
Dim sText As String

 ' Get ASCII String From Text1
 sText = Text1.Text
   
' Convert Some Text From ASCII To Hex
 If Len(Text1.Text) > 0 Then
     HexData = AsciiToHex(sText)
 End If
       
 ' Display The Hex Output
 Text2.Text = HexData

End Sub
'*****************************************************

Next:  the function code in a module that performs the ASCII to Hex conversion
'*****************************************************

Dim lTextLength As Long
'**************************************************
' Function To Convert ASCII To Hex Code
'**************************************************
Public Function AsciiToHex(sText As String) As String

For lTextLength = 1 To Len(sText)
AsciiToHex = AsciiToHex & Hex$(Asc(Mid(sText, lTextLength, 1)))
On Error Resume Next
DoEvents

Next lTextLength

AsciiToHex = Mid$(AsciiToHex, 1, Len(AsciiToHex))

End Function
'**************************************************

All of the above code works perfectly in converting an ASCII string to hex, here is the challenge,
below is an example of what I want to do (the current output is shown first):

Input String:        Servoguy
Hexoutput:           536572766F677579

I would like help with my code so the results will look like this:

Input String:        Servoguy
Hexoutput:           53 65 72 76 6F 67 75 79

I would genuinely appreciate any ideas, strategies, or actual code modification to achieve these results.

I want to say thanks in advance to anyone (or everyone) who takes a shot at this.

Best to all,

servodude